ПОМОГИТЕ! Изменить данную программу для while и repeat
program_n1;
var i,s:integer;
begin
s:=0;
for i=10 to 99 do
s:=s+i;
writeln ('Сумма=',s);
end.

while:program n2;var i,s:integer;begins:=0;i:=10;while i<100 do begin s:=s+i; i:=i+1; end;writeln ('Сумма=',s);end.repeat:program n3;var i,s:integer;begins:=0;i:=10;repeat s:=s+i; i:=i+1;until i=100;writeln ('Сумма=',s);end.Результат:Сумма=4905