var a: real; //цена за ручку
b: integer; // количество ручек
c: real; // стоимость покупки
begin
writeln('Введите цену за одну ручку: ');
readln(a);
writeln('Введите количество купленных ручек: ');
readln(b);
с := a * b;
writeln('Стоимость покупки ',c);
end.