решить в виде таблицы Первоначальная стоимость оборудования 421000
Остаточная стоимость 14000
Срок эксплотации 7

s = 0

k = 0: x = -10+3*0 = -10; x>0 - нет

k = 1: x = -10+3*1 = -7; x>0 - нет

k = 2: x = -10+3*2 = -4; x>0 - нет

k = 3: x = -10+3*3 = -1; x>0 - нет

k = 4: x = -10+3*4 = 2; x>0 - да; s = 0+2 = 2

k = 5: x = -10+3*5 = 5; x>0 - да; s = 2+5 = 7

k = 6: x = -10+3*6 = 8; x>0 - да; s = 7+8 = 15

k = 7: x = -10+3*7 = 11; x>0 - да; s = 15+11 = 26

k = 8: x = -10+3*8 = 14; x>0 - да; s = 26+14 = 40

k = 9: x = -10+3*9 = 17; x>0 - да; s = 40+17 = 57

k = 10: x = -10+3*10 = 20; x>0 - да; s = 57+20 = 77

На экран будут выводиться значения: -10  -7  -4  -1   2   5   8  11  14  17  20

После 20 выведется значение s = 77. Т.е подряд, без пробелов, будут выведены числа 20 и 77.

Значение s = 77.

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49