vetor e registro

[alex.ryan]

program vetor;

type t_produto=record

nomes : string;

pv,pc : real;

end;

t_cidades=record

nomes : string;

produtos: array [1..3] of t_produto;

end;

var

cidades : array [1..3] of cidade;

begin

readln(cidades[1].nome);

readln(cidades[1].produtos[1].nome);

readln(cidades[1].produtos[1].pc[1]);

readln(cidades[1].produtos[1].pc[2]);

readln(cidades[1].produtos[1].pc[3]);

readln(cidades[1].produtos[1].pv[1]);

readln(cidades[1].produtos[1].pv[2]);

readln(cidades[1].produtos[1].pv[3]);

readln(cidades[2].nome);

readln(cidades[2].produtos[1].nome);

readln(cidades[2].produtos[1].pc[1]);

readln(cidades[2].produtos[1].pc[2]);

readln(cidades[2].produtos[1].pc[3]);

readln(cidades[2].produtos[1].pv[1]);

readln(cidades[2].produtos[1].pv[2]);

readln(cidades[2].produtos[1].pv[3]);

readln(cidades[3].nome);

readln(cidades[3].produtos[1].nome);

readln(cidades[3].produtos[1].pc[1]);

readln(cidades[3].produtos[1].pc[2]);

readln(cidades[3].produtos[1].pc[3]);

readln(cidades[3].produtos[1].pv[1]);

readln(cidades[3].produtos[1].pv[2]);

readln(cidades[3].produtos[1].pv[3]);

writeln(cidades[1].produtos[1].nome);

writeln(cidades[1].produtos[1].pc[1]);

writeln(cidades[1].produtos[1].pc[2]);

writeln(cidades[1].produtos[1].pc[3]);

writeln(cidades[1].produtos[1].pv[1]);

writeln(cidades[1].produtos[1].pv[2]);

writeln(cidades[1].produtos[1].pv[3]);

writeln(cidades[2].produtos[1].nome);

writeln(cidades[2].produtos[1].pc[1]);

writeln(cidades[2].produtos[1].pc[2]);

writeln(cidades[2].produtos[1].pc[3]);

writeln(cidades[2].produtos[1].pv[1]);

writeln(cidades[2].produtos[1].pv[2]);

writeln(cidades[2].produtos[1].pv[3]);

writeln(cidades[3].produtos[1].nome);

writeln(cidades[3].produtos[1].pc[1]);

writeln(cidades[3].produtos[1].pc[2]);

writeln(cidades[3].produtos[1](pc[3]);

writeln(cidades[3].produtos[1].pv[1]);

writeln(cidades[3].produtos[1].pv[2]);

writeln(cidades[3].produtos[1].pv[3]);

readkey;

end.