Question

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

Answer 1

var
  a, b: real;
  c: boolean; //Чтобы меньше памяти кушало :)

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