Sayinin pozitif bolenlerini bulma

Bir sayinin pozitif tam bolenlerini bulur.

     
program bolenbul(input,output);
var
sayi,i:integer;
begin
writeln('bir Sayi Giriniz : ');
readln(sayi);
for i:=1 to sayi+1 do
begin
if sayi mod i=0
then
writeln('sayi ',i,'(y)e tam bolunur');
end;
readln()
end.