1. Объясните ход исполнения команды
If <логическое выражение 1>
Then begin
<команды 1>
end
Else If <логическое выражение 2>
Then begin
<команды 2>
end
Else begin
<команды 3>
end;​

1)
#include <iostream>

using namespace std;

int main() {
  cout << "Сколько Вам лет?" << endl;
  int age;
  string s;
  cin >> age >> s;
}
2)
#include <iostream>

using namespace std;

int main() {
  cout << "Сколько Вам лет?" << endl;
  int age;
  cin >> age;
  if(age < 0) cout << "wrong" << endl;
  else if(age >= 18) cout << "yes" << endl;
  else cout << "no" << endl;
}

3)
#include <iostream>

using namespace std;

int main() {
 int a;
 cin >> a
 if(a%2 == 0) cout << "четное" << endl;
 else cout << "нечетное" << endl;
}

4)
#include <iostream>

using namespace std;

int main() {
 int a,b,c;
 string s = "";
 cin >> a >> b >> c;
 if(a == b && a == c) cout << "равносторонний" << endl;
 else {
    if (a==b || a == c || b == c) s += "равнобедренный";
    if( a*a == (b*b+c*c) || b*b == (a*a+c*c) || c*c == (a*a+b*b))
           s+= "прямоугольный";
    if(s == '') cout << "обычный" << endl;
    else cout << s << endl;
  }
}
 
 

Const
  maxN = 100; // Максимальное кол-во элементов массива
var
  n, i: longint;
  middle, sum, sum2: real; // Может быть нецелым числом
  a: array[1..maxN] of real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
  write('Введите элементы массива через пробел: ');
  for i := 1 to n do begin
    read(a[i]);
    sum := sum + a[i];
  end;
  middle := sum / n; // Вычисляем среднее арифметическое
  writeln('Среднее арифметическое = ', middle);
  sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
  for i := 1 to n do
   if a[i] < middle then
     sum2 := sum2 + a[i];
  writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.