Var a,b,c:real;
bagin
Writeln ('Введите количество тетрадей');
Read (a);
Writeln ('Введите цену за одну тетрадь');
Read (b);
c:= a * b;
Writeln ('Стоимость покупки: ',c)
end.
