Program zap_4;
Uses Crt;
Const n=10;
Type tovar = record
name : string[20];
stoim, cena:real;
kol:integer;
end;
Var a : array[1..n] of tovar;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
begin
Writeln('Наименование товара ',i);
Readln(a[i].name);
Writeln('Цена');
Readln(a[i].cena);
Writeln('Количество');
Readln(a[i].kol);
A[i].stoim:=a[i].cena*a[i].kol;
end;
for i:=1 to n do
writeln(a[i].name:20,’ ‘,a[i].stoim:4:2);
Readln;
end.