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

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.