Question

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

Answer 1

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.