program Hello; // Pascal [fpc 3.0.4]
var a,b,c:double;
begin
writeln ('Введите стоимость тетради');
readln(a);
writeln ('Введите количество тетрадей');
readln(b);
c:=a*b;
writeln ('Количество купленных тетрадей:', b);
writeln ('Стоимость покупки:', c);
end.
program Hello; // Pascal [fpc 3.0.4]
var a,b,c:double;
begin
writeln ('Введите стоимость тетради');
readln(a);
writeln ('Введите количество тетрадей');
readln(b);
c:=a*b;
writeln ('Количество купленных тетрадей:', b);
writeln ('Стоимость покупки:', c);
end.