решить, решение на линейный алгоритм . Простите что так плохо видно просто нам так дали.
​

1.
алг
нач цел X
ввод X
если X>0 то 
X:=X+1
все
вывод X 
кон

2.
алг
нач цел X
ввод X
если X>0 то
X:=X+1
иначе
X:=X-2
все
вывод X 
кон

3.
алг
нач цел X
ввод X
 если X>0 то
  X:=X+1
 все
 если X<0 то
  X:=X-2
 все
 если X=0 то
  X:=10
 все
вывод X
кон

4.
алг
нач цел X,Y,Z,N
ввод X,Y,Z
N:=0
если X>0 то
N:=N+1
все
если Y>0 то
N:=N+1
все
если Z>0 то
N:=N+1
все
вывод N
кон

5.
алг
нач цел X,Y,Z,N,K
ввод X,Y,Z
N:=0
K:=0
если X>0 то
N:=N+1
иначе
K:=K+1
все
если Y>0 то
N:=N+1
иначе
K:=K+1
все
если Z>0 то
N:=N+1
иначе
K:=K+1
все
вывод N,K
кон

Самые наиболее простые варианты выбрал думаю в самый раз

1.                                                    

program raf105;

var  

 i: integer;

begin

 for i:=50 to 57 do

   writeln(i,' ');

end.

2.                                                    

program raf105;

var  

 i,c,sum: integer;

 sari: real;

begin

 for i:=6 to 14 do

 begin

   sum:= sum+i*i;

   c:= c+1;

 end;

 sari:= sum/c;

 writeln('Среднее арифметическое: ',sari);

end.

3.                                                    

program raf105;

var  

 i,n,sum: integer;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   if i mod 2 = 0

     then sum:= sum+i*i;

 writeln('Сумма квадратов чётных чисел: ',sum);

end.

                                                     PascalABC 3.4.2