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

var n, i: integer;

begin

   write('Введите число: ');

   readln(n);

   i:=2;

   while n mod i <> 0 do

       i += 1;

   if i = n then

       writeln('Простое')

   else

       writeln('Не простое');

end.