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

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 (slt;gt;a) and (slt;gt;k) and (klt;gt;a) // проверяем условие, если 1-ая цифра не одинакова 2-ой и третьей, а вторая цифра не равна третьей, то

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

end;

end.