Даны два целых числа от -40000 до 40000. вывести их в порядке возрастания.

Var a,b: integer; begin   randomize;   a: =random(80001)-40000;   b: =random(80001)-40000;   if a> b then writeln(b,', ',a)   else writeln(a,', ',b); end.

Var s,s1: string; i,p: integer; begin writeln('введите строку: '); readln(s); s1: =''; for i: =1 to length(s) do   case s[i] of   ',','.' : s1: =s1+s[i]+' ';   '-'     : s1: =s1+' - ';   else s1: =s1+s[i];   end; p: =pos('   ',s1); while p> 0 do   begin delete(s1,p,1); p: =pos('   ',s1); end; p: =pos(' ,',s1); while p> 0 do   begin delete(s1,p,1); p: =pos(' ,',s1); end; p: =pos(' .',s1); while p> 0 do   begin delete(s1,p,1); p: =pos(' .',s1); end;   writeln(s1); end. пример: введите строку: перед точкой   или   запятой пробела нет   ,но после   -есть   . перед точкой или запятой пробела нет, но после - есть. 

// 1program _sqrt; var ar: array[1..100] of integer; i: integer; res: real; beginfor i: =1 to 100 do ar[i]: =i; for i: =1 to 100 do if ar[i] mod 2=0 then res: =res+ar[i]; res: =sqrt(res); write(res); end. // 2. 100 элементов слишком много для произведенияprogram _sqrt; var ar: array[1..10] of integer; i: integer; res: int64; beginres: =1; for i: =1 to 10 dobeginar[i]: =i; res: =res*sqr(ar[i]); end; write(res); end. // 3program _sqrt; var ar: array[1..100] of integer; i: integer; res: int64; beginfor i: =1 to 100 dobeginar[i]: =i; if ar[i] mod 2=1 then res: =res+ar[i]; end; write(res); end.