Вычисли значение выражения при заданных значениях переменных y=43,28+1,03x+3,15x в квадрате +2,34x в квадрате
на Pascal abc

Var
   Text,S:string;
   n,k:boolean;
   i:integer;
Begin
Write('Введите текст на русском языке: ');ReadLn(Text);
Text:=LowerCase(Text)+' '; // перевоит текст в нижний регистр
WriteLn(Text); // показывает действие предыдущей строки
For i:= 1 to Length(Text) do
    Begin
    if ('а' <= Text[i])and(Text[i] <= 'я')or(Text[i] = 'ё') then S:=S+Text[i] // записываем русские буквы в S
    else // как только встречаем другой символ, проверяем,
       if Length(S) > 0 then // есть ли в S хоть одна буква,
          Begin // и если есть, то проверяем условие задачки, и выводим слово на экран, если оно истинно
          if (S[1] in 'бвгджзйклмнпрстфхцчшщ')and(S[Length(S)] in 'аоэиуыеёюя') then WriteLn(S);
          S:=''; // далее обнуляем S
          End;
    End;
End.

Пример работы программы:

Введите текст на русском языке: Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
дан произвольный текст на русском языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой.
на
программу
которая
слова
начинающиеся
на
согласную
заканчивающиеся

Var a: array of integer;
n, sum, max: integer;
 
begin
   sum:=0;
   write('Введите натуральное число n: ');
   readln(n);
   a := new integer[n];
 
  write('Введите действительные числа: ');
  for var i:=0 to a.Length-1 do
    read(a[i] );
   
  write('Сумма равна: ');
  for var i:=0 to a.Length-1 do
    sum:=sum+a[i];
  writeln(sum);  
 
  write('Максимальный элемент равен: ');
  max := a[0];
  for var i:=0 to a.Length-1 do
    if a[i]>max then
    begin
      max := a[i];
    end;
  writeln(max);
 
  write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
  sum:=sum+max;
  write(sum);
 
end.