Даны 3 любых числа (вводим через readln). Нужно узнать и вывести на экран, равны ли эти числа. Должен появиться один из вариантов: «Все числа равны» или «Равны только два числа» (какие именно, указывать не надо) или «Все числа разные» — Pascal(Паскаль)

Program FU;
Var a, b, c: integer;
Begin;
Cls;
Writeln ('Введите первое число');
Readln (a);
Writeln ('Введите второе число');
Readln (b);
Writeln ('Введите третье число');
Readln (c);
If (a=b) and (a=c) then writeln('Все три числа равны') else if (a=b) or (b=c) or (a=c) then writeln ('Равны только два числа') else writeln ('Все числа разные, равных нет');
End.