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

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.