program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
