Напишите программу, которая определяет, является ли введенное число простым.

Var   n, i, f: integer; begin   write('Введите число: ');   readln(n);   i:= 0; f:=0;   while i < n do   begin     i := i + 1;     if n mod i = 0 then f := f + 1;   end;   if f = 2 then writeln('Простое')   else writeln('Не простое'); end.