Составьте программу которая проверяет равны ли 3 введенных целых числа, и выводит **...

Question

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

Answer 1

Program zadacha;
var
a,b,c:integer;
begin
read(a,b,c);
if (a=b)and(b=c) then 
write('Равны')
else
write('Не равны')
end.

Answer 2

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.