Переведите целые числа 295(10) и 8900(10) в восьмиричную систему​

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: array[1..9] of real;   randomize;   for var i: =1 to 9 do begin       case i mod 3 of       1: a[i]: =i*i;       2: a[i]: =random(1,50);       else a[i]: =(a[i-2]+a[i-1])/2       end;       write(a[i],' ')       end;   writeln end. пример 1 44 22.5 16 16 10 49 39 23

1) program n1; var a: array[1..10] of integer; i,sum: integer; begin randomize; sum: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); if a[i]< 0 then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end. 2) program n2; var a: array[1..10] of integer; i,k: integer; begin randomize; k: =0; writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(20)-10; write(a[i],' '); end; writeln; write('номера дел на 5: '); for i: =1 to 10 do if a[i] mod 5=0 then write(i,' '); end.