s := 0; a := 1; k:= 1; while a < 50 do
begin
s:=s + a;
k:=k + 1;
a := k*k;
end;​

sashak73    2   06.04.2021 12:12    0