ниже пример программы
var {начало раздела объявления переменных}
n, i, j : integer; {целые числа}
a : real; {дробное число}
b : string; {строка текста}
c : char; {символ}
d, flag : boolean; {логический тип}
begin
readln(n); {команда для ввода данных в переменную n}
for i := 2 to n do {цикл со счётчиком}
begin
flag := false;
for j := 2 to i-1 do
begin
if i mod j = 0 {условие}
then
begin
flag := false;
break; {выход из цикла}
end
else
begin
flag := true;
end;
end;
if flag then writeln(i); {неполное условие, присутствует только ветка "+"; команда вывода значения i на экран}
end;
end.

LizaRey    2   20.01.2022 23:58    8