Известно цена и количество каждого из двух товаров вывести общую стоимость

написать программу

Var p1,k1,p2,k2,s:integer;
begin
writeln (Введите цену и количество первого товара:);
readln(p1,k1);
writeln (Введите цену и количество второго товара:);
readln(p2,k2);
s:=p1*k1+p2*k2;
writeln (Общая стоимость = ,s);
readln;
end.

Пример:
Введите цену и количество первого товара:
25 3
Введите цену и количество второго товара:
120 2
Общая стоимость = 315

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.