Напишите программу, которая вводит координаты двух точек на числовой оси и выводит расстояние между ними. учитывайте, что первый может быть введена меньшая координата.

Program z_1; var a, b: integer; begin     writeln('введите координату 1');     readln(a);     writeln('введите координату 2');     readln(b);     writeln(abs(a-b)); {abs=модуль числа} end. 

program a1; var a: array[1..30] of integer;       amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], '  '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do  if a[i]> amax then begin  amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do  if a[i]< amin then begin  amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];

a[imin]: =a[imax];

a[imax]: =s; for i: =1 to n do  writeln(a[i],'  '); end.

Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var a: array[1..10] of integer; begin   var max: =2;   var min: =101;   for var i: =1 to 10 do   begin   a[i]: =random(0,100);   write(a[i],' ');   if (a[i] mod 2=0) and (a[i]> max)     then max: =a[i];     if (a[i] mod 2=1) and (a[i]< min)     then min: =a[i];   end;   writeln;   writeln('минимальный нечетный елемент - ',min);   writeln('максимальный четный елемент - ',max); readln; end.