{* Задача 414 *}

Unit ZADACH414;
Interface
Implementation
Begin
 writeln('Имеется четыре (A, B, C, D) числа. Необходимо ответить на вопрос: «Правда ли что все среди этих чисел есть равные?» Ответ вывести в виде текста: «Правда», или «Неправда». ');
End.

Program zadach414;

Uses zadach414.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
  c : integer;
  d : integer; {описываем имеющиеся переменные}
Begin
  writeln('vvedite chislo a'); {вводим все числа по очереди}
  readln(a);
  writeln('vvedite chislo b');
  readln(b);
  writeln('vvedite chislo c');
  readln(c);
  writeln('vvedite chislo d');
  readln(d);
  If (a = b)Or (a = c) Or (a = d)Or (b = c) Or (b = d) Or (d = c) Then
    writeln ('pravda') {условный оператор}
  Else writeln ('nepravda');
    readln; {* Ждем нажатия Enter *}
End.