uses crt-

varnumi,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.