ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧАМИ ПО ИНФОРМАТИКЕ ЗА 8 КЛАСС(РАБОТА В ПАСКАЛЕ).​

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

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

     c: real; // стоимость покупки

begin

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

 readln(a);

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

 readln(b);

 с := a * b;

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

end.