Program w14_5;
const nmax=25;
Type Pupil=Record
surname:String;
class_n:1..11;
class_c:char;
pr : String;
End;
List=Array [1..nmax] Of Pupil;
Var A : List;
n : Byte;
Procedure Init(Var X : List; Var k : Byte);
Var i : Byte; Begin
WriteLn ( 'vvedite kol-vo ychenikov, obr k vrachy');
ReadLn(k); For i := 1 To k Do With X[i] Do
Begin
WriteLn('familiya: ');
ReadLn(surname);
WriteLn('klass: ');
ReadLn(class_n);
WriteLn (' bykva klassa: ');
ReadLn(class_c);
WriteLn('prichina obrasheniia: ');
ReadLn(pr);
End;
End;
Procedure Solve (X : List; k : Byte);
Var i : Byte;
Begin
For i := 1 To k Do With X[i] Do
If (class_n In [1..3]) And (pr='golovnaia bol') Then WriteLn(surname) ;
End;
Begin
Init(A, n);
Solve(A, n);
ReadLn;
End.