fovfabomi

var i: integer;

begin

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

end.