Даны две натуральные цифры а и b, а

PROGRAM zxcvbnm;
{Даны две натуральные цифры а и b, а<b. вывести на экран все натуральные 
цифры значение которых находиться между a и b не считая a и b}
VAR a,b,i:integer;
BEGIN
ReadLn(a,b);
WHILE a<b-1 DO
          BEGIN
          a:=a+1;
          Write(a,' ');
          END;
END.