Среди чисел найти среднее. Если среди чисел есть равные, вывести сообщение'' Ошибка".

program kk; var a, b, c : integer; begin writeln ('введите три числа'); readln (a, b, c); if (a=b) or (a=c) or (b=c) then writeln ('Ошибка!') else if (ac) writeln (c, a, b) else if (bc) writeln (c, b, a) else if (cb) writeln (b, a, c) else writeln (a, b, c) end.