Одна ручка стоит A Гривен и B Копеек! Написать программу которая определяет, сколько ручек можео купить за C Гривен и D копеек , а также сколько денег останеться!

var a,b,c,d,e,f,k,m:integer;beginwriteln('A, B:');readln(a,b);writeln('C, D:');readln(c,d);e:=a*100+b;f:=c*100+d;k:=e div f;m:=e-k*f;writeln('k = ',k);writeln('Останется: ',m div 100,' гр ',m mod 100,' коп');end.Пример:A, B:28 15C, D:3 75k = 7Останется: 1 гр 90 коп