Составить программу, определяющую, является ли введённое с клавиатуры число простым. Если простое вывести да, если нет соответственно нет.
Это если что ПАСКАЛЬ.

Предыдущий
вопрос Следующий
вопрос

program PrimeNumber;

var
number, i, count: integer;

begin
writeln('Enter a number: ');
readln(number);

count := 0;

for i := 2 to number div 2 do
begin
if number mod i = 0 then
count := count + 1;
end;

if count = 0 then
writeln('Yes, the number is prime.')
else
writeln('No, the number is not prime.');
end.