Нужно описать графическим алгоритм вычисления значения Z по формуле Y=(7+X) 8Y-X(9X)2, если XY>9
Z= X3Y+6-X, если XY<9
6Y+2X3 , если XY=9
Исходные данные: X=2.8

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.

// 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)