Составить программу выполняя которую машина выведет на экран все целые числа от а до б
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.