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

Программа считывает 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.