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.