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

Var a, b, c, d, e, f, k, m:integer;

begin

writeln ('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 15

C, D:

3 75

k = 7

Останется: 1 гр 90 коп