Паскаль!!!Помогите, пожалуйста, переделать программу из For в Repeat. Вот код:

Program prost;
Var
i,n,s:integer;
Begin
readln (n);
s:=0;
For i:=1 to n do
if n mod i=0
then s:=s+i;
if s=(n+1)
then writeln('n-простое число')
else writeln('n не является простым числом');
end.

Если не работает - отпиши, скрин программы кину, мог просто удалить случайно кое-что при переносе

Спасибо Вам огромное! Я не знаю как Вас отблагодарить! Всё работает! Огромнейшее спасибо Вам!

Пожалуйста)

:)

Program prost;Var i,n,s:integer;Beginreadln (n);s:=0;i:=0;repeati:=i+1;if n mod i=0 then s:=s+i;Until i=n;if s=(n+1)then writeln('n-простое число')else writeln('n не является простым числом');end.