program Project1;

uses SysUtils;

const
  Sz = 20;

var
  a: array[1..Sz] of integer;
  i, j, Max, MaxL, Count, Sum: integer;

begin
  //1
  Count := 0;
  for i := 1 to 10 do
  begin
    read(a[i]);
    if (a[i] > 9) and (a[i] < 100) and (a[i] div 10 mod 2 = 1)
        then Count += 1;
  end;
  Writeln('Начинающихся на нечетную цифру: ', Count);
  Writeln;

  //2
  Randomize;
  for i := 1 to 20 do
  begin
    a[i] := Random(201) - 100;
    Write(a[i],' ')
  end;

  Max := 0;
  for i := 1 to 19 do
    for j := i + 1 to 20 do
    begin
      MaxL := Abs(a[i] - a[j]);
      if MaxL > Max then Max := MaxL;
    end;
  Writeln;
  Writeln('Max = ', Max);
  Writeln;

  //3
  Sum := 0;
  for i := 1 to 10 do
  begin
    read(a[i]);
    if IntToStr(a[i])[1] = '5' then
      Sum += a[i];
  end;
  Write('Сумма чисел начинающихся на 5: ', Sum);
  Readln; Readln;
end.