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

program simpl;

var k, f: integer;

begin

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

read (k);

f:=0;

//f - признак делимости на число, которое отлично от введенного

for i: integer : =2 to k - 1 do

if k mod i = 0 then f : = f + 1;

//если число делится без остатка на число номера цикла i

//то оно не будет простым;

//значение f при этом увеличивается на 1.

//цикл начинается с числа 2 и завершается предпоследним

//числом потому, что на 1 и само на себя делится даже простое

//число

if f = 0 then writeln (k, ' - простое число')

else writeln (k, ' - не является простым числом')

end.