Написать в программе Паскаль программу: Вывести сначала положительные числа из…

Var a,b,c,k: integer; beginread (a,b); if (a<0) and (b>0) then beginfor k: =1 to b do write (k,'); for k: =1 to a do write (-k, '); write (-a,',b); endelse if (a>0) and (b>0) then begin for k: =a to b do write (k,'); write (b-a); endelse b: =-1*b; a: =-1*a; for k: =b to a do write (k,'); write (b-a); end.