TheDrive

program pb;
VAR
fam: string;
god: integer;
voz: integer;
begin
fam:='family';
god:=1997;
voz:=17;
writeln(fam);
writeln(god);
write(voz);
end.