Даны три вещественных числа a,b,c.Определить имеется ли среди них хотя бы одна пара равных между собой чисел — Pascal(Паскаль)

program doom_gibel;

uses crt;

var
  a, b, c: integer;

begin
  clrscr;
  writeln('Введите первое число');
  readln(a);
  writeln('Введите второе число');
  readln(b);
  writeln('Введите третье число');
  readln(c);
  If a = b then
  begin
    writeln('Число ', a, '=', b);
  end;
  If a = c then
  begin
    writeln('Число ', a, '=', c);
  end;
  If b = c then
  begin
    writeln('Число ', b, '=', c);
  end;
  If (a = b) and (b = c) then
  begin
    writeln('Все три числа равны');
  end
  else
  begin
    writeln('Числа не равны');
  end;
  readln;

end.