Var
i, n: integer;
begin
i := 1;
read(n);
repeat
i := i + 1;
if(n mod i = 0) and (n <> i) or (n = 1) then
begin
write('Число ', n, ' не является простым');
exit;
end;
until i = trunc(sqrt(n)) + 1;
write('Число ', n, ' является простым');
end.
Урок если там қ должна быть такая
Объяснение:
^ знак не написан, но он выполняет действи, если что.
Найбольшее число символов 225