Программа №1: 
Var  n,i,sum:integer;
Begin 
  Write('Введите N в последовательности 1+2+3+4...N: '); readln(n);    
     while(sumi:=i+1;      
sum:=sum+i;      
             end;  
 Writeln('Чтобы получилось число больше ',n,' нужно взять ',i,' числа');
End.

Блок-схема в приложении

Задача №2 

Var   i:integer;
   a1,a:real;
Begin
a:=65000;
for i:=1993 to 2014 do 
   Begin 
Writeln(i,' год - ',a:0:0,' жителей'); 
a1:=(a/100)*3; 
a:=a+a1; 
     end;
End.