Помогите пожалуйста срочно надо!!!!!
Ответ:
:var i:integer;
begin
for i:=1 to 43 do
writeln(sqr(i));
readln;
end.