Стоимость А метров серой ткани равна В тенге, а стоимость К синей ткани равна М тенге. Какая ткань дороже и на сколько?

var

A, B, K, M:integer;

begin

write ('A = ') ; readln (A) ;

write ('B = ') ; readln (B) ;

write ('K = ') ; readln (K) ;

write ('M = ') ; readln (M) ;

if B / A > M / K then

writeln ('Серая ткань дороже синей на ', B / A - M / K, ' тенг за метр')

else

writeln ('Синяя ткань дороже серой на ', M / K - B / A, ' тенг за метр') ;

end.