Zadanie 1. Dla wprowadzonej liczby n wypisz jej dzielniki i ich ilość.

program zadanie;
var n, i, ilosc: integer;
begin
        ilosc:=0;
        Readln(n);
        Write('Dzielniki: ');
        for i:=1 to n do
        begin
                if n mod i = 0  then begin
                        Write(i);
                        if i<>n then Write(', ') else WRITE('.');
                        ilosc:=ilosc+1;
                end;
        end;
        Writeln;
        Writeln('Ilość dzielników: ', ilosc);
        Readln;
end.