infa

program a1;
uses crt;
var price1, price2, number1, number2:real;
begin
  write('Введите цену ручек:');
  readln(price1);
  write('Введите количество покупаемых ручек:');
  readln(number1);
  write('Введите цену карандашей:');
  readln(price2);
  write('Введите количество покупаемых карандашей:');
  readln(number2);
  writeln('Стоимость покупки = ', (price1*number1)+(price2*number2));
end.