Program zap_12;
Uses Crt;
Const
n = 10;
Type
tovar = record
name, ed: string[20];
cena: real;
kol: integer;
end;
Var
a: array [1 .. n] of tovar;
i: byte;
BEGIN
ClrScr;
for i := 1 to n do
with a[i] do
begin
Writeln('Введите наименование товара ');
Readln(name);
Writeln(' Введите единицы измерения');
Readln(ed);
Writeln('Цена');
Readln(cena);
Writeln('Количество');
Readln(kol);
End;
Writeln('Ассортимент магазина');
for i := 1 to n do
with a[i] do
Writeln(name, ' ', ed, ' ', cena:4; 2, ' ', kol);
Readln;
end.