Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр

program zz1;

var a, k, s, i:integer; / / задаем переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

begin

s:=i mod 10; / / получаем последнюю цифру числа

k:=i div 100; / / получаем первую цифру числа

a: = (i div 10) mod 10; / / получаем среднюю цифру числа

if (sa) and (sk) and (ka) / / проверяем условие, если первая цифра не равна второй и третьей, а вторая цифра не равна третьей, то

then write (i,' '); / / выводим ответ в строчку через пробел

end;

end.