Нарисуй пьедестал для черепашек и размести их по местам с первого по третье!
питон

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

var a: integer;

begin

    read(a);

    a: =a*a;

    a: = a*a;

    writeln(a);

end.

var a: array[1..100,1..100] of integer;

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.

расширение от имени отделяется точкой