Geral's prka.

program pr8_1;
type
 dayType = record
        day:1..31;
        mounth:1..12;
        year:1..2100;
 end;
 adresType = record
        town:string;
        street:string;
        house:integer;
 end;
 friend = record
        f_n:string;
        l_n:string;
        age:0..100;
        hobby:string;
        birthday:dayType;
        adres:adresType;
 end;
var
        student1, student2:friend;
BEGIN
with student1 do begin
        f_n:='Valentine';
        l_n:='Nosikov';
        age:=17;
        hobby:='Music, bycycle, readln';
        with birthday do begin
                day:=14;
                mounth:=2;
                year:=1998;
        end;
        with adres do begin
                town:='Odesa';
                street:='Dobrovolskogo';
                house:=154;
        end;
end;
with student2 do begin
        f_n:='Fred';
        l_n:='Mercury';
        age:=45;
        hobby:='Music, bycycle, computer science';
        with birthday do begin
                day:=5;
                mounth:=9;
                year:=1946;
        end;
        with adres do begin
                town:='Zanzibar';
                street:='Stone town';
                house:=1;
        end;
end;
with student1 do begin
        writeln('First name: ', f_n);
        writeln('Last name: ', l_n);
        writeln('Age: ', age);
        writeln('Hobby: ', hobby);
        with birthday do begin
                writeln('Birthday: ', day, '.', mounth, '.', year);
        end;
        with adres do begin
                writeln('Town: ', town);
                writeln('Street: ', street);
                writeln('House: ', house);
        end;
end;
writeln('');
with student2 do begin
        writeln('First name: ', f_n);
        writeln('Last name: ', l_n);
        writeln('Age: ', age);
        writeln('Hobby: ', hobby);
        with birthday do begin
                writeln('Birthday: ', day, '.', mounth, '.', year);
        end;
        with adres do begin
                writeln('Town: ', town);
                writeln('Street: ', street);
                writeln('House: ', house);
        end;
end;
read(student1.birthday.day);
END.