Кто может решить по паскалю? 1)даны числа a1, получить в порядке возрастания (в новом массиве) все различные числа, входящие в a1,. 2)даны два набора чисел c1, cn и d1, d2, dm. соединить их в один массив f (только написать нужно чтобы числа в массив вводились вручную, а не рандоные)

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(readinteger('n='));   var b: =a.distinct.orderby(x-> x).toarray; b.println end. пример n= 7 3 -5 6 3 3 4 1 -5 1 3 4 6 begin   var n1: =readinteger('длина первого массива-');   var c: =readseqinteger('вводите массив: ',n1).orderby(x-> x).toarray;   var n2: =readinteger('длина второго массива-');   var d: =readseqinteger('вводите массив: ',n2).orderby(x-> x).toarray;   //собственно слияние   var f: =new integer[n1+n2];   var (ic,id,& if): =(0,0,0);   repeat       if c[ic]< d[id] then begin f[& if]: =c[ic]; ic+=1 end       else begin f[& if]: =d[id]; id+=1 end;       & if+=1   until (ic=n1) or (id=n2);   if ic=n1 then       repeat           f[& if]: =d[id]; id+=1; & if+=1       until id=n2   else       repeat           f[& if]: =c[ic]; ic+=1; & if+=1       until ic=n1;   write('массив f: '); f.println(',') end. пример длина первого массива- 6 вводите массив: 4 0 -3 6 4 2 длина второго массива- 5 вводите массив: 3 6 -3 0 2 массив f: -3,-3,0,0,2,2,3,4,4,6,6

На языке pascal; program main; var a, b: integer; begin readln(a, b); if a> b then begin a: =a*a; b: =b*b*b; writeln('a=',a,' b=',b); end else begin if a begin a: =a*a*a; b: =b*b; writeln('a=',a,' b=',b); end else writeln('введены равные числа'); end; readln; end.