В языке запросов посикового сервера для обозначения логической операции "ИЛИ" используется символ"|", а для логической операции И символ @ в таблице приведены запросы Сосна|береза 8700. Сосна 5300 Сосна@Береза 1900 Какое количество страниц в тысячах будет найдено по запросу береза​

Const   nm = 50; type   data = record       day: 1..31;       month: 1..12;       year: integer   end;   lichn = record       famnam: string;       datr: data   end;   listlichn = array [1..nm] of lichn; var   m: listlichn;   n: integer; procedure getlichn(k: integer); begin   write(k, ') введите через пробел фамилию, имя: ');   readln(m[k].famnam);   writeln('введите через пробел день, месяц и год рождения: ');   readln(m[k].datr.day, m[k].datr.month, m[k].datr.year) end; procedure writelichn(k: integer); begin   writeln(m[k].famnam, ' ', m[k].datr.day, '.', m[k].datr.month, '.', m[k].datr.year) end; procedure vvod(var p: integer); var   i: integer; begin   write('введите количество лиц n (максимум 50) -> ');   readln(p);   if p < = 50 then for i : = 1 to p do getlichn(i)   else begin writeln('вы ввели неправильное значение'); p : = 0 end end; procedure zapros1;   { фамилии и имена тех кто родился в месяц l года } var   i: integer;   l: 1..12; begin   write('введите номер месяца рождения (1-12): ');   readln(l);   for i : = 1 to n do       if m[i].datr.month = l then writelichn(i) end; procedure zapros2;   { фамилии и имена тех кто родился в год a } var   a, i: integer; begin   write('введите год рождения: ');   readln(a);   for i : = 1 to n do       if m[i].datr.year = a then writelichn(i) end; procedure zapros3;   { фамилии и имена тех чья дата рождения z.l.a } var   a, i: integer;   z: 1..31;   l: 1..12; begin   write('введите через пробел день, месяц и год рождения: ');   readln(z, l, a);   for i : = 1 to n do       if (m[i].datr.year = a) and (m[i].datr.month = l)           and (m[i].datr.day = z) then           writelichn(i) end; begin   vvod(n);   zapros1;   zapros2;   zapros3 end. тестовое решение: введите количество лиц n (максимум 50) -> 3 1) введите через пробел фамилию, имя: иванов иван введите через пробел день, месяц и год рождения: 24 12 1973 2) введите через пробел фамилию, имя: петров петр введите через пробел день, месяц и год рождения: 05 03 1982 3) введите через пробел фамилию, имя: козлова екатерина введите через пробел день, месяц и год рождения: 1 12 1994 введите номер месяца рождения (1-12): 12 иванов иван 24.12.1973 козлова екатерина 1.12.1994 введите год рождения: 1982 петров петр 5.3.1982 введите через пробел день, месяц и год рождения: 5 3 1982 петров петр 5.3.1982