ПОМОГИТЕ ПОЖАЛУЙСТА С Задачками ПО ИНФОРМАТИКЕ ЗА 8 КЛАСС(РАБОТА В ПАСКАЛЕ).

var a: real; //цена за ручку

     b: integer; // количество ручек  

     c: real; // цена покупки

begin

 writeln('Введите стоимость за одну ручку: ');

 readln(a);

 writeln('Введите количество купленных ручек: ');

 readln(b);

 с := a * b;

 writeln('Стоимость покупки ',c);

end.