Вычислить стоимость покупки по количеству тетрадей и цену за одну тетрадь в Pascal

Var a,b,c:real;

bagin

Writeln ('Введите количество тетрадей');

Read (a);

Writeln ('Введите цену за одну тетрадь');

Read (b);

c:= a * b;

Writeln ('Стоимость покупки: ',c)

end.