Створити програму, яка заносить в масив всі парні числа від 1 до 199 і виводить їх на екран (Delphi). Треба написати як запрограмувати це завдання

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x1,y1):=ReadReal2('Координаты 1-й точки:');
  var (x2,y2):=ReadReal2('Координаты 2-й точки:');
  var a:=Abs(x2-x1); // считаем, что координаты указаны верно
  var d:=a*Sqrt(2);
  var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
  Writeln('Длина стороны ',a,', диагональ ',d);
  Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.

Пример
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0

х=7690 - условие

var x, L, M: integer;

begin readln(x);

L:=0;

M:=0;

while x > 0 do begin

1) L:= L + 1 = 1;

M:= M + x mod 10 = 0;

x:= x div 10 = 7 69;

2) L:= L + 1 = 2;

M:= M + x mod 10 = 9;

x:= x div 10 = 7 6;

3) L:= L + 1 = 3;

M:= M + x mod 10 = 15;

x:= x div 10 = 7 ;

4) L:= L + 1 = 4;

M:= M + x mod 10 = 22;

x:= x div 10 = 0;

end;

writeln(L);

write(M);

end.

L = 4; M = 22

Объяснение:

1)L:= L + 1 = 0 + 1 = 1;

M:= M + x mod 10 = 0 + 0 (остаток) = 0;

x:= x div 10 = 7690 : 10 = 769 (остаток 0 здесь не пишется);

2)L:= L + 1 = 1 + 1 = 2;

M:= M + x mod 10 = 0 + 9 (остаток) = 9;

x:= x div 10 = 769 : 10 = 76 (остаток 9 здесь не пишется);

3)L:= L + 1 = 2 + 1 = 3;

M:= M + x mod 10 = 9 + 6 (остаток) = 15;

x:= x div 10 = 76 : 10 = 7 (остаток 6 здесь не пишется);

4)L:= L + 1 = 3 + 1 = 4;

M:= M + x mod 10 = 15 + 7 (остаток) = 22;

x:= x div 10 = 7 : 10 = 0 (остаток 7 здесь не пишется);