Дано целое дано целое трехзначное число а по заданному алгоритму составьте код программы алгоритм остаток нач ввод скобочка открывается икс скобочка закрывается x равно остаток и скажите мне это

1. var a,b: integer; begin readln(a); while a> 0 do begin b: =a mod 10; a: =a div 10; end; writeln ('первая цифра: ',b); end.2.  var n, count  : integer; begin readln(n); while n> 0 do begin  if n mod 10=3 then  count  : =count  +1;   n: =n div 10;   end;   write(count  ); end. 3. var n,i,count  : integer; begin  readln(n);   while n> 0 do    begin    i: =n mod 10;     if odd(i)=false then  count  : =count  +1;     n: =n div 10;   end;   writeln('кол-во четных цифр: ',count  ); end.

Pascal   var    x,y : integer;       begin  readln (x,y);   if (x=0) or (y=0) then    begin    if x = 0 then       writeln ('точка лежит на оси y');     if y = 0 then       writeln ('точка лежит на оси x')'    end  else    begin      if (x> 0) and (y> 0) then       writeln ('точка находится в первой четверти');       if (x< 0) and (y> 0) then       writeln ('точка находится во второй четверти');       if (x< 0) and (y< 0) then       writeln ('точка находится в третей четверти');       if (x> 0) and (y< 0) then       writeln ('точка находится в четвертой четверти');   end;   end.