помоги информатика 8 класс​

var

i:integer;

begin

for i:=1 to 55 do

writeln(sqr(i));

readln;

end.

Если тебе помог мой , то ты можешь сделать его лучшим)