Помогите с заданием, в паскале просто плохо понимаю.

var a,b,c:integer;begin  writeln('Введите три числа:');  readln(a,b,c);  if (a=b) and (b=c) then writeln('Все 3 числа одинаковые')  else  if (a<>b) and (b<>c) and (a<>c) then writeln('Нет одинаковых')  else writeln('2 числа одинаковых');end.