Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии.
Чертёжник может выполнять команду Сместиться на (a, b) (где a, b – целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Чертёжнику
был дан для исполнения следующий алгоритм:
Сместиться на (2, -1)
Повтори N раз
Сместиться на (a, b)
Сместиться на (13, 2)
конец
Сместиться на (-20, 49)
Определите максимальное натуральное значение N, для которого найдутся такие значения
чисел a и b, что после выполнения программы Чертёжник возвратится в исходную точку?

var i:word; переменная через которую будут проходить все трехзначные цифры
s:longint; переменная для хранения суммы
begin
s:=0;-обнуляем переменную где будем сохранять сумму
write('Числа: ');
for i:=100 to 999 do  начинаем перебор всех трехзначных цифр
if i mod 2 = 0 then проверка на четность, мод - это деление по остатку,т.е в ответ записывается остаток от деления
if i mod 7 = 0 then begin write(i,' '); s:=s+i; end; выводим четное число кратное 7 и в тоже время суммируем его с последующими четными кратных 7ми, в переменной s
writeln; пропускаем строку
writeln('Сумма всех всех четных трехзначных чисел, которые делятся на 7 = ',s); выводим на экран результат
end.

REM

SCREEN

LINE(80,280)-(100,180),6,B

LINE(100,260)-(120.240),6,B

LINE(120.240)-(140,220),6,B

LINE(140,280)-(160,180),6,B

LINE(180,280)-(200,180),6,B

LINE(200,200)-(220,180),6,B

LINE(220,220)-(240,200),6,B

LINE(200,240)-(220,220),6,B

LINE(260,280)-(260,180),6,B

LINE(260,260)-(280,240),6,B

LINE(280,240)-(300,220),6,B

LINE(300,280)-(320,180),6,B

LINE(320,280)-(340,180),6,B

LINE(360,240)-(380,220),6,B

LINE(380.280)-(400,180),6,B

LINE(440,280)-(440.200),6,B

LINE(440,240)-(460,220),6,B

LINE(460,280)-(480,200),6,B