{* Задача 583 *}

Unit ZADACH583;
Interface
Implementation
Begin
 writeln('Первая бригада маляров за t1 час покрасила А м2 стен, а вторая бригада за t2 часа покрасила В м2. У какой бригады производительность труда выше и на сколько?');
End.

Program zadach583;

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