Умоляю 50 . дано целое число х. если число кратно 3, то построить зеленую окружность, иначе-построить желтый квадрат. в pascalabc​

uses graphabc;

var

  x: integer;

begin

  setwindowsize(200, 200);

  read(x);

  if (x mod 3 = 0) then  

  begin

    setbrushcolor(clgreen);

    fillcircle(100, 100, 60);

  end

  else

  begin

    setbrushcolor(clyellow);

    fillrectangle(150, 150, 50, 50);

  end;

end.

Procedure del_n(var f: fail); var n,i: integer;       c: char;       x: stud; begin write('удалить запись № '); readln(n); reset(f); if (filesize(f)< n)or(n< 0) then   begin   writeln('в файле нет такой записи');   close(f);   write('press ');   readln;   exit;   end; if n=filesize(f)then   begin   seek(f,filesize(f)-1);   truncate(f);   close(f);   write('press ');   readln;   exit;   end; seek(f,n-1); for i: =n-1 to filesize(f)-2 do   begin   seek(f,i+1);   read(f,x);   seek(f,i);   write(f,x);   end; seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln end;

                        теория рекурсивных алгоритмов точного определения понятия алгоритма была полностью решена в 30-х годах xx века в двух формах: на основе описания алгоритмического процесса и на основе понятия рекурсивной функции. первый подход заключался в том, что был сконструирован формальный автомат, способный осуществлять ограниченный набор строго определённых элементарных операций (машина тьюринга). алгоритмом стали называть конечную последовательность таких операций и постулировали предложение, что любой интуитивный алгоритм является алгоритмом и в сформулированном выше смысле. то есть для каждого алгоритма можно подобрать реализующую его машину тьюринга