Написать программу, которая определяет среди заданных трех чисел равные числа

Pascal ABC:

Program chisla;

Var a, b, c:integer;

Begin

writeln ('Введите число a: ');

readln (a);

writeln ('Введите число b: ');

readln (b);

writeln ('Введите число c: ');

readln (c);

if a=bthen writeln ('Числа a и b равны!');

if a=cthen writeln ('Числа a и c равны!');

if b=cthen writeln ('Числа c и b равны!');

end.