1.Массив состоит из чисел 7, 8 и 9. Переставить элементы массива таким образом, чтобы сначала стояли все числа 8, потом -7, а в конце - 9.

2. Написать программу, определяющую возможность представления заданного натурального числа М в виде суммы двух квадратов натуральных чисел.

1)var ar:array[1..10] of integer;ar2:array[1..10] of integer;i,k,m:integer;begin;randomize;writeln('First array');for i:=1 to 10 dobegin;ar[i]:=random(7,9);write(ar[i]:4);end;m:=0;writeln;for i:=1 to 10 doif ar[i]=8 thenbegin;inc(m);ar2[m]:=8;end;for i:=1 to 10 doif ar[i]=7 thenbegin;inc(m);ar2[m]:=7;end;for i:=1 to 10 doif ar[i]=9 thenbegin;inc(m);ar2[m]:=9;end;writeln('Final array');for i:=1 to 10 dobegin;ar[i]:=ar2[i];write(ar[i]:4);end;end.2)var a,b,m,i,j,c:int64;begin;readln(m);for i:=1 to m dobegin;for j:=1 to m doif sqr(i)+sqr(j)=m thenbegin;writeln(i,'^2+',j,'^2=',m);c:=1;end;end;if c<>1 thenwriteln('Невозможно');end.