Question

задание 4, даю 40 баллов

Answer 1

var i: integer;

begin

for i:=1 to 10 do writeln('сторона квадрата равна',i,' S=',i*i)

end.