Program z14_21;
uses crt;
const n=10;
type date=record
d:1..31;
m:1..12;
y:1900..3000; end;
Rec=record
surname:String;
name:string;
ot:String;
birthdate:Date;
end;
list=Array[1..n] of Rec;
var A:list;
s:Date;
Procedure Input(var x:list);
var f:text; k:byte;
begin
Assign(f,'c:\input.txt');
Reset(f);
for k:=1 to n do
with x[k] do begin
readln(f,surname);
readln(f,name);
readln(f,ot);
read(f,birthdate.d);
read(f,birthdate.m);
readln(f,birthdate.y);
end;
close(f); end;
Procedure Solve(x:list; s:date);
var i:byte;
f:text;
begin
Assign (f,'c:\Output.txt');
rewrite(f);
Writeln(f,' Segodny den rogdenie: ');
for i:=1 to n do
with x[i] do
if (birthdate.d=s.d) and (birthdate.m=s.m) then writeln (f, name,' ' ,surname);
Close(f);
end;
BEGIN
Init(A);
writeln('Vvedite segodneshnuy datu');
with s do begin
write('den: '); readln(d);
write('mesyc'); readln(m);
write('god'); readln(y);
end;
Solve(A,s);
readln;
END.