Pascalda Sayının Tam Bölenlerini Bulma, Pascal Tam Bölen Programı

program tam_bolenler;
uses crt;
var
   X,Y:longint;
begin
     clrscr;
     write('A SAYISINI GIRINIZ...:');readln(Y);
     for X := 1 to Y do
 begin
      if (Y mod X = 0) then
      writeln(X);
 end;
readln;
end.