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

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