Как приравнять числа? (см. внутри)

[[Axel]]

Друзья, помогите пожалуйста с паскалем ABC, есть такая вот задача: даны 3 любых числа (вводим через readln). Нужно узнать и вывести на экран, равны ли эти числа. Должен появиться один из вариантов: "Все числа равны" или "Равны только два числа" (какие именно, указывать не надо) или "Все числа разные". Я не пойму как это решить, но я дамаю должно быть что-то вроде этого:
Program QWERTY;
Var a, b, c: integer;
Begin;
Cls;
Writeln ('Введите первое число');
Readln (a);
Writeln ('Введите второе число');
Readln (b);
Writeln ('Введите третье число');
Readln (c);
If (a+b)=(b+c)=(a+c) then writeln ('Все числа равны') else writeln ('Не все числа равны');
End.

Просто я полный ламер в паскале, помогите пожалуйста!!!!!!

[New man]

If (a=b)and(a=c) then writeln('Равно все') 
   else if  ((a=b)and(a<>c))xor ((a<>b)and(a=c)) then writeln('Равны два числа') else    
          writeln(Все неравно);

[Serge_Bliznykov]

New man, проще, коллега, проще..
если равны все - то отработает первое условие, по else - значит они все не равны, поэтому достаточно:

If (a=b)and(a=c) then writeln('Равно все') 
  else if (a=b) or (b=c) or (a=c) then writeln('Равно два числа') 
         else WriteLn('все числа не равны');

[[Axel]]

Спасибо, ребята!!!!)))) Короче, вот так всё получилось:

Program FU;
Var a, b, c: integer;
Begin;
Cls;
Writeln ('Введите первое число');
Readln (a);
Writeln ('Введите второе число');
Readln (b);
Writeln ('Введите третье число');
Readln (c);
If (a=b) and (a=c) then writeln('Все три числа равны') else if (a=b) or (b=c) or (a=c) then writeln ('Равны только два числа') else writeln ('Все числа разные, равных нет');
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[[Axel]]

Ещё вопрос в тему! Задача такова: вводятся через ридлн 5 любых чисел. Надо вывести на экран, являются ли 4 из них (любые) одинаковыми. Я чёто вообще разобрать не могу, пол дня логову ломаю.

[Lem-ON]

kolichestvo:=0;
if a=b then kolichestvo:=kolichestvo+1;
if c=b then kolichestvo:=kolichestvo+1;
if c=d then kolichestvo:=kolichestvo+1;
if e=d then kolichestvo:=kolichestvo+1;
if e=a then kolichestvo:=kolichestvo+1;
if kolichestvo>=4 then writeln('да') else writeln('нет');

[Asinkrit]

if (Ord(a=b)+Ord(c=b)+Ord(c=d)+Ord(e=d)+Ord(e=a)) >=4 then Writeln('Yes')
  else Writeln('No');