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

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.