Написать

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

Если на 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.

Надеюсь помог)