Вывести на экран все двухзначные числа в порядке убывания с шагом 3 (т.е будет 99,

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017

begin
  Range(99,10,-3).Println
end.

Результат
99 96 93 90 87 84 81 78 75 72 69 66 63 60 57 54 51 48 45 42 39 36 33 30 27 24 21 18 15 12

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln('Введите 1 элемент массива');
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln('Введите ', i,' элемент массива');
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln('Максимальный элемент массива равен ',max);
end.

Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56

Const n =5;
var
  a:array[1..n] of integer;
  i,max:integer;
begin
  writeln('Введите 1 элемент массива');
  readln(a[1]); max:=a[1];
  for i:=2 to n do begin
    writeln('Введите ', i,' элемент массива');
    readln(a[i]);
    if a[i]>max then max := a[i];
  end;
  writeln('Максимальный элемент массива равен ',max);
end.

Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56