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