Question

-Проверьте, есть ли среди трех заданных чисел равные.

Программку в Паскале напишите )

Answer 1

var a,b,c:integer;

begin

readln(a,b,c);

if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')

end.