{* Задача 582 *}

Unit ZADACH582;
Interface
Implementation
Begin
 writeln('Стоимость А метров серой ткани равна В рублей, а стоимость K метров синей ткани равна М рублей. Какая ткань дороже и на сколько?');
End.

Program zadach582;

Uses zadach582.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a  : real;
  b  : real;
  m  : real;
  k  : real;
  ss : real;
  sc : real;
Begin
  clrscr; {* Очистка экрана *}
  Write('Введите количество серой ткани в м.');
  read(a);
  Write('Введите стоимость серой ткани в руб.');
  read(b);
  Write('Введите количество синей ткани в м.');
  read(k);
  Write('Введите стоимость синей ткани в руб.');
  read(m);
  ss := b / a;
  sc := m / k;
  If ss > sc Then
    writeln('Серая ткань дороже на ', ss - sc : 2:2, ' руб.')
  Else writeln('Сняя ткань дороже на ', sc - ss, ' руб.');
    readkey; {* Нажмите любую клавишу *}
End.