Question

Answer 1

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if ((a=b) and (b=c)) then write('YES')

else write('NO');

readln;

end.

Answer 2

var a,b,c:int64;

begin

readln(a,b,c);

if (a=b) and (b=c) then write('YES')

else write('NO');

readln;

end.