Даны 3 числа проверить что они все различны

Если я правильно понял вопрос, то так:

var a, b, c:int64;

begin

read (a);

read (b);

read (c);

if (ab) and (ac) and (bc) then write ('Chisla razlichni')

else write ('Chisla ne razlichni');

end.