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

Если на 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.
Надеюсь помог)