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

Var   str: string;   i   : byte; begin   readln(str);   str : = str.replace(': ', '');   foreach c: string in str.split('; ') do     if (c[c.length] in ['a', 'а']) then //не уточнено, какого алфавита "а"       i += 1;   writeln(i); end.

  var    a,b,c,g : integer;     // a,b,c - стороны            begin  readln (a,b,c);       // g - находим гипотенузу (наибольшее из чисел)  if a > b then    begin    if a > c then      g : = a    else      g : = c    end  else    if b > c then    g : = b    else    g : = c;       // если треугольник прямоугольный, то  // сумма квадратов катетов равна квадрату гипотенузы        if (sqr (a) + sqr (b) = sqr(g))  or (sqr (a) + sqr (c) = sqr(g)) then    writeln ('yes')    else    writeln ('no');   end.

Const  n = 5;   m = 10;   var  a: array [1..n, 1..m] of real;     s, r: real;   kol, i, j: integer;   //kol - количество чисел  begin  writeln('введите r');   readln(r);   for i: = 1 to n do  for j: = 1 to m do  begin    writeln('введите a[', i, ', ', j, ']');     readln(a[i, j]);     if a[i, j] > r then    begin      kol: = kol + 1;       s: = s + a[i, j];     end;   end;   s: = s / kol;   writeln(kol, ' чисел > ', r);   writeln('среднее арифметическое равно ', s); end.