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

Если я правильно понял вопрос, то так:
var a, b, c:int64;
begin
read(a);
read(b);
read(c);
if (a<>b) and (a<>c) and (b<>c) then write('Chisla razlichni')
                                                       else write('Chisla ne razlichni');
end.