const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>
10*118=1180 симв/час
1180*8=9440 симв/день
9440*365=3445600 симв/год
1 символ весит 1 байт.
3445600*1 байт=3445600 байт=<span>3,286 Мб (информационный объем)
P.S. Сам контрольную решай, МГУПИшник :D
</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger(3).Sorted.Skip(1).Take(1).Println
end.
<h2>28 10 15</h2><h2>15</h2>