даны три числа a,b,c,если a

Даны три числа a,b,c. Если среди них есть равные, то найти сумму этих 3 чисел, а иначе найти min из трех.
Помогите составить программу в паскале

могу немного ошибиться в написании, но так

Var a,b,c: integer;
Begin
Readln ('введите число a=',a);
Readln ('введите число b=',b);
Readln ('введите число c=',c);
If (a=b) or (a=c) or (b=c) Then x:=a+b+c;
Else
Begin
If a