Даны три целых числа,одно из которых отлично от двух других равных

В упрощенном варианте строчки от комментария "начало критерий" до "конец критерий" можно удалить. 

program number_1_2_3;
var a, b, c, n: integer;
begin
writeln(Введите три числа, два из которых должны быть одинаковы);
readln(a, b, c);
if (a=b) and (b = c) then // начало критерий
begin
writeln(Только два числа обязаны быть схожи. Введите три числа);
readln(a, b, c);
end;
if (alt;gt;b) and (blt;gt;c) then
begin
writeln(Два числа должны быть схожи. Введите три числа);
readln(a, b, c);
end; // конец условий
if a = b then n:= 3 else if a = c then n:= 2 else n:= 1;
writeln(Порядковый номер числа,хорошего от иных: , n)
end.