Язык - Паскаль. В магазине продаётся шоколадка, стоимостью x рублей и y копеек. У нас есть a рублей b копеек. Сколько можно купить шоколадок(f)? Сколько у нас останется рублей(c)? Сколько у нас останется копеек(d)? Даю 15 баллов! Помогите, пожалуйста)))

5.Пирожок в столовой стоит a рублей и b копеек. Определите, сколько рублей и копеек нужно заплатить за n пирожков. Программа получает на вход три числа: a, b, n и должна вывести два числа: стоимость покупки в рублях и копейках.

var x,y,a,b,c,d,f:integer;beginread(x,y,a,b);xy:=x*100+y;ab:=a*100+b;f:=ab div xy;if ab-xy*f >100 then c:=(ab-xy*f) div 100 else c:=0;d:= ab-xy*f;writeln(f,’ шоколадок можно купить, а ещё останется ‘,c,’рублей и ‘,d,’копеек.’)end.