Napisać program wypisujący dzielniki wprowadzonej liczby naturalnej.
program petla_2;
uses crt;
var x,i:INTEGER;
begin
clrscr;
write('podaj jakas liczbe calkowita: ');readln(x);
clrscr;
write('Dzielniki: ');
repeat
write(i,', ');
until x mod i=0;
readkey;
end.
To ostatnia wersja tego programu. Nie mam w ogóle pomysłu na warunek do tej pętli. Za pomoc z góry dziękuje.