Скласти програму знаходження всіх дільників деякого числа введеного з клавіатури. Всі дільники повинні виводитися на екран

PascalABC.Net

begin  var z := ReadInteger('Введите целое число: ');  var i := 0;  Println('Делители: ');  while i < z do  begin    Inc(i);    if z mod i = 0 then Print(i, ' ');  end; end.

begin

var z := ReadInteger('ціле число: ');

var i := 0;

Println('дільники: ');

while i < z do

begin

  Inc(i);

  if z mod i = 0 then Print(i, ' ');

end;

end.