Ребят решить 2 подгруппу

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение:

Var k:integer;
begin
     readln(k);
     case k of
          10..20: writeln('Мне ', k ,' лет');
     else
          case k mod 10 of
               1   : writeln('Мне ', k ,' год');
               2..4: writeln('Мне ', k ,' года');
          else writeln('Мне ', k ,' лет');
          end;
     end;
end.
//
#include <iostream>
using namespace std;
int main()
{
    int k;
    cin >> k;
    if (k >= 10 && k <= 20)
        cout << "Мне " << k << " лет" << endl;
    else
        switch (k % 10)
        {
            case 1: cout << "Мне " << k << " год" << endl; break;
            case 2: cout << "Мне " << k << " года" << endl; break;
            case 3: cout << "Мне " << k << " года" << endl; break;
            case 4: cout << "Мне " << k << " года" << endl; break;
            default: cout << "Мне " << k << " лет" << endl; break;
        }
}
//
case - оператор выбора