Написаиь программу на 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.