Определить,принадлежат ли числа a и b промежутку [-10;1)

program lol (input, output); var a, b, I:integer; begin write ('Введите число а: '); read (a); write ('Ввндите число b: '); read (b); for I:=-10 to 0 do begin if a=I then writeln ('Число а пренадлежит промежтку'); if b=I then writeln ('Число b пренадлежит промежтку'); end; end.