Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае. входные данные вводятся два целых числа. выходные данные выведите ответ на . примеры входные данные 1 10 выходные данные 1 2 3 4 5 6 7 8 9 10 не до конца понял, как делать,

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.

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.

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.