254 (в 16-ой системе счисления) + 546, 1(10-ой системе счисления)= перевести в восмеричную систему счисления

1) а) на Java
class example{
    public static void main (String[] args){
        int k = 0, j = 0;
        for (int i = 0; i < 10; i++){
            k = k + 5;
            j = j + k;
            if (i == 9)
            System.out.print(k);
            else
            System.out.print(k + " + ");
        }
        System.out.print(" = " + j);
    }
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
    public static void main(String args[]){
        for (int x = 50; x >= 40; x--){
        double y = (5 * x) + (Math.pow(x, 2));
        int i = (int) y;
        System.out.println(i);
        }
    }
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.

Ошибки:

1) writeln("Введите размерность массива); - здесь опечатка (пропущены кавычки), должно быть writeln('Введите размерность массива');

2) writeln('Введите массив'); - пользователь не вводит массив, здесь надо написать writeln('Создаём массив...');

3) Перед циклом нужно определить начальные значения переменных с и s
c:=0; s:=0;

4) У первого цикла есть begin, но нет end

5) s:=s+a[i]; эта команда повторяется дважды - второй раз (после if) не нужен

6) Лишний end; (предпоследняя строка программы)

И ещё не ошибки, а два совета:
1) пользуйся отступами, тогда лучше видно структуру программы. Когда все команды идут подряд в одной строке, легко запутаться.
2) При выводе среднего арифметического используй формат вывода   s1:0:2 
тогда результат будет округлён до двух знаков после запятой, и не будет таких монстров вроде 16.65432468734246873435

Исправленная программа:
Program Zadacha;
Uses crt;
var
   a:array[1..1000] of integer;
   c,i,n,s :integer;
   s1: real;
begin;
   clrscr;
   writeln('Введите размерность массива');
   readln(n);
   writeln('Создаём массив...');
   c:=0; s:=0;
   for i:=1 to n do
      begin
         a[i]:=random(100);
         if a[i]<50 then
            begin
               inc(c);
               s:=s+a[i];
            end;
      end;
   s1:=s/n;
   writeln('Массив A:');
   for i:=1 to n do write(a[i]:4);
   writeln;
   writeln('Среднее арифметическое равно=',s1:0:2);  end.