1. упорядочить данную последовательность по убыванию. массив задан датчиком случайных чисел на интервале [-54, 33]. размер произвольный.

Uses crt; const n=10; var a: array[1..n] of integer; i,p: integer; begin randomize; for i: =1 to n do begin a[i]: =random(87)-54; writeln(a[i]); end; writeln; repeat p: =0; for i: =1 to n-1 do if a[i]< a[i+1] then begin p: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until p=0; for i: =1 to n do writeln(a[i]); end.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.