Посчитатьобщую стоимость товара.
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.