{* Задача 581 *}

Unit ZADACH581;
Interface
Implementation
Begin
 writeln('Валя и Вера на своем садовом участке собрали А кг клубники. Из них В кг собрала Вера. Кто из девочек собрал клубники больше и на сколько?');
End.

Program zadach581;

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