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

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

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