Ответ:

program u;

var a,b: integer;

begin

write('введите стоимость ручек: ');

readln(a);

write('введите количество ручек: ');

readln(b);

writeln('цена: ',a*b,'р')

end.

Объяснение: