uses crt;
var numi,pricei,numii,priceii,numiii,priceiii,numiv,priceiv:integer;
begin
 clrscr;
 writeln('Введите количество и стоимость товаров I сорта кол-во и стоимость через Enter');
 readln(numi);
 readln(pricei);
 clrscr;
 writeln('Введите количество и стоимость товаров II сорта кол-во и стоимость через Enter');
 readln(numii);
 readln(priceii);
 clrscr;
 writeln('Введите количество и стоимость товаров III сорта кол-во и стоимость через Enter');
 readln(numiii);
 readln(priceiii);
 clrscr;
 writeln('Введите количество и стоимость товаров IV сорта кол-во и стоимость через Enter');
 readln(numiv);
 readln(priceiv);
 clrscr;
 writeln('сорт      ', 'кол-во      ', 'стоимость ед.      ', 'общ.стоимость');
 writeln('I         ', numi, pricei:12, numi * pricei:24);
 writeln('II        ', numii, priceii:12, numii * priceii:24);
 writeln('III       ', numiii, priceiii:12, numiii * priceiii:24);
 writeln('IV        ', numiv, priceiv:12, numiv * priceiv:24);
 writeln('Стоимость всех товаров ', numi * pricei + numii * priceii + numiii * priceiii + numiv * priceiv);
end.