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.