Получить список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку. (программа Паскаль)

Question

Получить список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку.

Answer 1

Uses crt;
 Type
 book=Record
 fam: String;
 pred: String;
 st: Byte;
 nagr: Byte;
 end;
 Var
 x: Array [1..20] of book;
 i,n: Integer;
 BEGIN
 Clrscr;
 Writeln('Введите кол-во учителей: '); Readln(n);
 For i:=1 to n do
 begin
    Write('Фамилия учителя: '); Readln(x[i].fam);
    Write('Предмет: '); Readln(x[i].pred);
    Write('Стаж: '); Readln(x[i].st);
    Write('Нагрузка: '); Readln(x[i].nagr);
 end;
 Writeln('Список тех учителей школы, которые преподают математику и информатику:');
 For i:=1 to n do
 If (x[i].pred='Математика') or (x[i].pred='Информатика') Then
 begin
    Writeln(x[i].fam);
    Writeln(x[i].st);
    Writeln(x[i].nagr);
    Writeln('--------');
 end;
 Readln
 END.