1. вводить числа с клавиатуры,пока не будет введено число кратное 5. 2. вводить числа с клавиатуры, выводить ответ, до каждого числа четное оно или нет, пока не будет введен 0.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

type
  Mountain=(string,integer);
    
procedure Print3Highs(t:array of Mountain);
begin
  t.OrderByDescending(x->x[1]).Take(3).Println(NewLine)
end;

begin
  var a:array of Mountain:=Arr(
      Rec('Эльбрус',5642),
      Rec('Винсон',4892),
      Rec('Килиманджаро',5895),
      Rec('Эверест',8848),
      Rec('Аконкагуа',6959),
      Rec('Мак-Кинли',6194));
   Print3Highs(a)
end.

Результат
(Эверест,8848)
(Аконкагуа,6959)
(Мак-Кинли,6194)

1)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
  else writeln('В строке нет буквы "а"');
end.

2)
var
  s: string;
  i, a: byte;

begin
  a := 0;
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
  writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.

3)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
  writeln('Строка после удаления букв(ы) "и": ', s);
end.