Определите функционал программы.
Begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count = 2)
end.
1)находит веденное число равным 2
2)находит натуральные числа
3)находит, является ли число простым