Question

Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае.

Входные данные
Вводятся два целых числа.

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
1
10
выходные данные
1 2 3 4 5 6 7 8 9 10
НЕ ДО КОНЦА ПОНЯЛ, КАК ДЕЛАТЬ, ПОМОГИТЕ

Answer 1

var a,b,i:integer;
begin
read(a);read(b);
if(a<b)then    for i:=a to b do write(i, ' ') 
 else  for i:=b to a do write(i,' ');
end.

Answer 2

на каком тесте?

Answer 3

var a,b,s,i:integer;
begin
assign(input,'путь к документы');
reset(input);
assign(output,'output.txt');
rewrite(output)
readln('vvedite menshee chislo');
readln(a);
readln('vvedite bolshee chislo');
readln(b);
for i:=a to b do s:=s+i*i;
writeln(s);
readln;
end.