Ну, например, так:
Код:
program qqsam2;
uses Crt;
Const
nmax = 9;
Type
pribor = record
name : string;
number : integer;
w_gold : real;
w_silv : real;
price : real;
count : integer;
end;
Var
p:array [1..nmax] of pribor;
i,j,n:byte;
CostAll: real;
Begin
ClrScr;
Repeat
Write('Количество приборов (не более ', nmax, '): ');
Readln(n);
Until n in [1..nmax];
Writeln('Введите данные о приборах: ');
for i:=1 to n do
with p[i] do
begin
Write('Наименование прибора N ', i, ': '); Readln(name);
Write('Вес золота в приборе N ', i, ': '); Readln(w_gold);
Write('Вес серебра в приборе N ', i, ': '); Readln(w_silv);
Write('Цена прибора N ', i, ': '); Readln(price);
Write('Количество приборов N ', i, ': '); Readln(count);
Writeln('====================================================');
end;
ClrScr;
Writeln(' Наименование Золото Серебро Цена Количество Au+Ag');
CostAll:=0;
for i:=1 to n do
with p[i] do
begin
Write(name);
for j:=Length(name)+1 to 18 do write(' ');
write(w_gold:10:3);
write(w_silv:10:3);
write(price:10:2);
write(count:10);
writeln((w_gold+w_silv)*count:10:3);
CostAll:=CostAll+price*count;
end;
Writeln('=========================================================');
Writeln('Общая стоимость приборов: ', CostAll:0:2);
Readln
end.