Даны два числа. Если разность чисел равна 10, то первое число увеличить на 24, в противном случае уменьшить в 3 раза второе число. Вывести эти числа.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 uses crt; var n: longint;     k: byte;   procedure KRZ (c: longint; var kz: byte); var m: set of byte;     z: byte; begin if c<0 then c:=c*(-1); if c=0 then kz:=1 else    begin    m:=[];    kz:=0;    while c>=1 do          begin          if not (c mod 10 in m) then             begin             inc(kz);             m:=m+[c mod 10];             end;          c:=c div 10;          end;    end; end;   begin write('n='); readln(n); KRZ (n,k); writeln(k,' различных цифр'); readln; end.

// PascalABC.Net 3.0, сборка 1088
const
  n=6;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
  end;
  Writeln;
  Writeln('*** Результат ***');
  Write(a[1],' ');
  for i:=2 to n-1 do begin
    if Odd(a[i]) then a[i]:=a[i]+a[n]
    else a[i]:=a[i]+a[1];
    Write(a[i],' ');
  end;
  Writeln(a[n])
end.

Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308