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

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.