Выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. формат входных данных задано единственное число n. формат выходных данных необходимо вывести все точные квадраты натуральных чисел, непревосходящие данного числа n.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

Var n,sum,i,ml: longint; begin         readln(n);         sum: =0;         ml: =1;         for i: =1 to n do         begin                     sum: =sum+2*i+4;                   ml: =ml*(2*i+4);         end;         writeln(sum);         writeln(ml); end. вроде бы так)

Var a,b,c: longint; begin         readln(a,b,c);         if (a=b) and (b=c)   then //если a=b и b=c то                           writeln('true')        else                               writeln('false'); end.  var n: longint; begin             readln(n);             if (n div 100=0) and (n div 10< > 0) and (n mod 2=0) then             //если целая часть от   деления на 100 равна 0             //и целая часть от деления на 10 не равна 0 то                            writeln('true')             else                           writeln('false'); end.