Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа) , перемещающую чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). чертёжнику был дан для исполнения следующий алгоритм: повтори 5 раз сместиться на (–5, 2) сместиться на (2, 0) сместиться на (-1, 0) на конец

Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.