Program zap_6;
Uses Crt;
Const n=10;
Type menu= record
Name : string[20];
ves:real;
cena:real;
end;
Var a : array[1..n] of menu;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('наименование блюда ',I);
Readln(Name);
Writeln('Вес');
Readln(ves);
Writeln('Cтоимость');
Readln(cena);
end;
Writeln('***********Меню***********');
for i:=1 to n do
Writeln(a[i].Name:15,’ ‘,a[i].ves:4:2,’ ‘,a[i].cena:4:2);
Readln;
end.