Program Program1;Vara:integer;b,sum:real;beginwrite('Введите кол-во ручек: ');readln(a);write('Введите цену за ручку: ');readln(b);sum:=a*b;writeln('Мальчик потратил '+floattostr(sum)+' руб.');end.