Написаиь программу на pascal abc; из бюджета в 100 рублей нужно купить ручки стоимостью 34 рубля, программа должна вывести количество купленных ручек

Var a,b,c,d:real; begin writeln('Введите ваш бюджет: '); readln(a); writeln('Введите стоимость одной ручки: '); readln(b) c:=a/b; d:=trunc(c); writeln('Кол-во ручек: ',d); end.