Даны два целых

числа A и B (A < B). Вывести все целые числа,

расположенные между данными числами (включая сами эти числа), в порядке их

возрастания (убывания), а также количество N этих чисел (с использованием

оператора for, while, repeat)

Var A, B : integer; procedure Fo (A, B:integer) ; var i : integer; begin for i:=A to B do write (i,' ') ; writeln ('N = ', B-A+1) ; end; procedure Whil (A, B : integer) ; var n:integer; begin n:=0; while (A < = B) do begin write (A,' ') ; Inc (A) ; Inc (n) ; end; writeln ('N = ', n) ; end; procedure Repea (A, B : integer) ; var n : integer; begin n:=0; repeat write (A,' ') ; inc (A) ; Inc (n) ; until (A>B) ; write ('N = ', n) ; end; begin Readln (A, B) ; Fo (A, B) ; Whil (A, B) ; Repea (A, B) ; end.