Вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются…

var a,b,c,d: integer; begin a: =100; repeat b: =a mod 10; c: =(a div 10) mod 10; d: =(a div 10) div 10) mod 10; if (b=c) or (c=d) or (b=d) then writeln (a); inc (a); until (a>999); readln; end.