rogram rekordbud;

{$APPTYPE CONSOLE}

uses

SysUtils;

type

budynek=record

adres:record

miasto:string;

ulica:string;

kod_pocztowy:string;

end;

wlasciciel:string;

pomieszczenia:array [1..20] of real;

end;

var

x:budynek;

procedure wprowadz(var xx:budynek);

begin

with x do

begin

write('Podaj Miasto: ');

readln(xx.adres.miasto);

write('Podaj Ulice: ');

readln(xx.adres.ulica);

write('Podaj Kod Pocztowy: ');

readln(xx.adres.kod_pocztowy);

write('Imie i Nazwisko Wlasciciela: ');

readln(xx.wlasciciel);

end;

end;

procedure wyswietl(xx:budynek);

var

i:byte;

begin

writeln('-------------------------');

writeln('Miasto: ',xx.adres.miasto);

writeln('Kod: ',xx.adres.kod_pocztowy);

writeln('Ulica: ',xx.adres.ulica);

writeln('Wlasciciel: ',xx.wlasciciel);

for i := 1 to 20 do

begin

writeln('Budynek Nr ',i,': ',xx.pomieszczenia[i]:0:0);

end;

end;

begin

wprowadz(x);

wyswietl(x);

readln;

end.