Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПОМОГИТЕ, ПАСКАЛЬ
!! ​

var a, b, c, i: integer;

begin

For i:= 200 to 500 do begin

a:= i div 100;

b:= i div 10 mod 10;

c:= i mod 10;

if ((a=b) or (b=c) or (a=c)) and ((a<>b) or (b<>c) or (a<>c)) then

Write (i, ' ');

end;

end.