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.