Объяснение:
Program x;
var
і, y, x : integer;
begin
writeln(x) ;
readl(x) ;
For i:=1 to x do
і:=і+0,1;
y:= sqr(x) ;
Writeln( y) ;
end;
end.
