Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
Решение программы в приложении.
1. номер ответ 1
2. номер ответ 4
Удачи в учебе!
у квадрата все стороны равны.
сумма углов треугольника равна 180 градусам.
12211
проверь, что так получится из 4 сделать 25