Составить программу выполняя которую машина выведет ** экран все целые числа от а до б ...

Question

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

Answer 1

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

Answer 2

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.

Comments

Кто вы, почему вы не ставите вообще пробелов? Это же не возможно читать, а когда у тебя программа в 100 строк, в которой вложенные друг в друга циклы, как ты это читать будешь?

---

уже отредактировал,криво скопировалось

---

Я про то, что отступов нет у строк. Просто совет - лучше делай их.

---

А это правильно?