Вывести на экране все числа от A до B

var a,b,i:integer;beginwriteln ('Введите числа a и b ');readln(a,b);for i:=a to b do writeln(i);readln;end.