составьте программу Pascal находящую количество делителей натурального числа N

program wer;var k, i, n: integer;beginwriteln ('vvedi natur chislo');readln (n);if n>=1 thenbeginfor i:=1 to n doif n/i=n div i then k:=k+1;writeln ('kol-vo delitelej=', k);end else writeln ('eto chislo ne natur');readln;end.