++++++/+//)(_??*;%;"%;?::(*_

Измени условие, удалят вопрос просто.

3)
var
 a,b,c:longint;
begin
 write('Write a,b,c: '); readln(a,b,c);
 If (a=b) or (a=c) or (b=c)
  then writeln('YES')
  else writeln('NO');
 readln
end.
4)
var
 a:longint;
begin
 write('Write a: '); readln(a);

 write('a. ');
 if (a div 10)=(a mod 10)
  then writeln('YES')
  else writeln('NO');

 write('b. ');
 if (a div 10)lt;(a mod 10)
  then writeln(a mod 10)
  else
   if (a div 10)=(a mod 10)
    then writeln((a div 10)=(a mod 10))
    else writeln(a div 10);

 write('c. ');
 if ((a div 10)+(a mod 10)) mod 2=0
  then writeln('NO')
  else writeln('YES');

 write('d. ');
 if ((a div 10)+(a mod 10)) div 10gt;0
  then writeln('YES')
  else writeln('NO');
 readln
end.