Question

Объясните пожалуйста как выполнить задание.. 8 класс

Answer 1

var
  a,b,c,k:integer;
begin
  Writeln('Введите три числа:'); Read(a,b,c);
  if a=b then k:=1 else k:=0;
  if (a=c) or (b=c) then k:=k+1;
  case k of
  0:Writeln('Нет одинаковых чисел');
  1:Writeln('Два числа одинаковые');
  2:Writeln('Все числа одинаковые')
  end
end.