Написать на паскале. решить надо с цикла for. вывести на экран все делители данного числа введенного с клавиатуры.

Program OkuraRain;
var x: integer;
  begin
  write('Введите число Х ');
  readln(x);
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Делители числа Х: ');
  for i:=2 to (x div 2) do
    if x mod i = 0 then writeln (i);
end.

var

n,i:longint;

begin

write ('N = ');readln(n);

for i:=2 to n div 2 do

if n mod i = 0 then writeln (i);

readln;

end.