Var i:integer;
bagin
for i:=1 to 10 do
begin
i:=i*i;
i:=i+1
end;
end.
откомпилируй код, скажи где ошибка если что
