Изменить словосочетания так, чтобы в них появились слова с непроизносимыми согласными. листья капусты- крик ярости - ночь со - поступок чести - день радости - ответ из уст - гость с опозданием-

Капустные листья, яростный крик, звёздная ночь, честный поступок, радостный день, устный ответ, опоздавший гость

КапусТные листья
яросТный крик
звёзДная ночь
чесТный поступок
радосТный день
усТный ответ
позДний гость

Я не спец по паскалю но вот на с++ ,думаю всё понятно будет

#include <bits/stdc++.h>
using namespace std;

int main() {
  vector <int> s;
 int i,sred,cis,sum=0;
 while(cin>>cis){
     s.push_back(cis);
 }
 for(i=0;i<s.size();i++){
     sum+=s[i];
 }
 sred=sum/s.size();
 cout<<sred<<endl;
    return 0;
}
Что мы делаем ,сейчас скажу.Сначала мы через while добавляем элементы в массив vector , затем находим сумму элементов массива . И чтобы найти ихнее среднее арифметическую мы делим сумму на количество элементов массива.

var a,b:integer;

c,d:real;

begin

a:=random(50); // Если нужно вводить своё число, то тогда "a:= *заданное число*" или, иначе, readln(a) "

writeln('Число "a" приняло значение ', a); // Если будет один из двух показанных выше, то эта строка не является обязательной.

b:=random(100); // Если нужно вводить своё число, то тогда "b:= *заданное число*" или, иначе, readln(b) "

writeln('Число "b" приняло значение ', b); // Если будет один из двух выше, то эта строка не является обязательной.

c:=((a+b)/2);

writeln('Среднее арифметическое данных двух чисел ', c);

d:=(sqrt(abs(a*b)));

writeln('Среднее геометрическое данных чисел ', d);

end.