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.