Найти самую большую разницу между цифрами числа

var

  a, max, t: integer;

begin

  write('введите число '); readln(a);

  max : = abs(a mod 10 - (a mod 100) div 10);

  while a div 10 < > 0 do

  begin

      t : = a div 10;

      while t < > 0 do

      begin

          if abs(t mod 10 - a mod 10) > max then

              max : = abs(t mod 10 - a mod 10);

          t : = t div 10;

        end;

      a : = a div 10;

  end;

  writeln('max = ', max);

end.

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var a: =readlines('m17.txt').joinintostring.tointegers;   a.println;   var b: =a.select((x,i)-> rec(x,(x-> x.item1< 0)       .select(x-> x.item2).toarray;   if b.count< > 2 then       writeln('количество отрицательных элементов не равно двум')   else begin       a: =seqfill(b[0],0).concat(a.skip(b[0]).take(b[1]-b[0]+1))           .concat(seqfill(a.length-b[1]-1,;       a.println       end end. тестовое решение: 23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10 0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0 файл с исходными данными имеет имя m17.txt. тестовый файл находится во вложении. разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.

//1 const       n = 10; var       a, i, sum: integer; begin       sum : = 0;       i : = 1;       repeat               write('введите число = ');               readln(a);               sum : = sum + a;               i : = i + 1;       until i > n;             writeln('среднее арифметическое = ', sum / n); end. //2 const       n = 10; var       a, sum, i: integer; begin       sum : = 0;       i : = 1;       while i < = n do       begin               write('введите число = ');               readln(a);               sum : = sum + a;               i : = i + 1;       end;       writeln('среднее арифметическое = ', sum / n); end. //3 const       n = 10; var       a, i, sum: integer; begin       sum : = 0;       for i : = 1 to n do       begin               write('введите число = ');               readln(a);               sum : = sum + a;       end;       writeln('среднее арифметическое = ', sum / n); end.