Напишите процедуру которая принимает числовой параметр-возраст человека в годах и выводит этот возраст со словом год, года или лет. например 21 год, 22года, 12 лет в паскале

100 раз решал подобные var n: integer; begin readln(n); if (n mod 10 = 1) and ((n mod 100) div 10  < > 1) then writeln(n,' год') else if (n mod 10 >   1) and (n mod 10 <   5) and ((n mod 100) div 10 < > 1) then writeln(n,' года') else writeln(n,'  лет'); end.

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.