ниже пример программы
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.
Сместиться на (–2, –3) Сместиться на (3, 2) Сместиться на (–4, 0)
конец
Для упрощения объединим команды в одну, то есть сложим все X и все Y, чтобы узнать, как смещается чертёжник за один повтор цикла:
X = -2 + 3 - 4 = -3
Y = -3 + 2 + 0 = -1
То есть три команды в цикле мы можем заменить на "Сместиться(-3, 1)"
Цикл совершает три повтора, то есть по оси X чертежник сместится на -3*3 = -9, а по оси Y на -1*3 = -3
В итоге чертежник окажется в точке, которая смещена от исходной на (-9, -3), и чтобы вернуться в исходную, ему нужно выполнить команду "Сместиться на (9, 3).