Составить программу выполняя которую машина выведет на экран все целые числа от а до б program primer war a: inter; begin a: = b

Program primer;
var 
   a,b,i:integer;
begin
   readln(a,b);
   for i:=a to b do 
      write(i,' ');
end.

Program z1;
var  a, b, c: integer;
begin 
 writeln('Введите начало диапазона:'); 
 readln(a); 
 writeln('Введите конец диапазона:'); 
readln(b); 
 while a < b do 
 begin   
inc(a); 
   Writeln(a);
  end;
end.