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

Программа считывает A, B, K, M. Учитывая, что A, B, K, M могут быть дробными, и стоимость может быть одинаковой. Язык программирования: Паскаль. var A, B, K, M : real; begin readln (A); readln (B); readln (K); readln (M); if B / A > M / K then writeln ('Первая ткань дороже на', B / A - M / K, 'рублей'); if M / K > A / B then writeln ('Вторая ткань дороже на', M / K - A / B, 'рублей');  if B / A = M / K then writeln ('Стоимость тканей одинаковая');  end.