program z_number;
uses crt;
var Number, CounterI:word;
begin
clrscr;
writeln('Введите число');
readln(Number);
writeln;
writeln('Делители числа');
for CounterI := 1 to Number div 2 do
if (Number mod CounterI = 0) then
writeln(CounterI);
writeln(Number);
readln;
end.