Решение ни , отметь пожалуйста решение лучшим. Спасибо.
program test;
var kt,kp,kk,kl,km,ct,cp,ck,cl,cm,pay:integer;
begin
write ('Вводите сначала количество товара, а потом его цену через пробел ');
read (kt,ct,kp,cp,kk,ck,kl,cl,km,cm);
pay:= kt*ct+kp*cp+kk*ck+kl*cl+km*cm;
writeln ('Вам нужно заплатить',' ',pay,' ','рублей');
end.