Ставте программу которая проверяте равны ли 3 введёных числа и выводит на экран соответствующее сообщение "равны" либо "не равны" надо завтра

Var 
  a,b,c : integer;

begin
   Read(a,b,c); 
   If (a=b) and (a=c)
      then writeln('Равны') 
      else writeln('Не равны');
end.