{* Задача 585 *}

Unit ZADACH585;
Interface
Implementation
Begin
 writeln('Валя и Вера собрались варить варенье из А кг смородины. По рецепту на 2 кг ягод нужно 3 кг сахара. Валя сказала, что им потребуется С кг сахара, а Вера - что Р кг. Кто из них прав?');
End.

Program zadach585;

Uses zadach585.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
label 1;
Var {* Необходимые переменные *}
  x : real;
  a : real;
  c : real;
  p : real;
Begin
  clrscr; {* Очищаем экран *}
  Write('a=');
  read(a);
  Write('Валя  C кг. =');
  read(c);
  Write('Вера  P кг. =');
  read(p);
  x := 3 * a/2;
  If (c = x) And (p = x) Then
  Begin
    write('Правы Валя и Вера.');
    Goto 1;
  End;
  If c = x Then
  Begin
    write('Права Валя.');
    Goto 1;
  End;
  If p = x Then
  Begin
    write('Права Вера.');
    Goto 1;
  End;
  Write('Никто не прав.');
  1 : readkey; {* Нажмите любую клавишу *}
End.