Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел

 var n,i,j,y:integer;
 x:boolean;
 
 function Prost(X: LongInt): boolean;
 var i: integer;
 Begin
     Prost:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { ïðîâåðÿåì íà ÷¸òíîñòü  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { ïðîâåðÿåì òîëüêî íå÷¸òíûå }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     Prost:=true;
     
 End;
 
 begin
   Write('N = '); readln(n);
   j:=5;
   while y<n do
   begin
   x:=true;
   j:=j+1;
     For i:=6 to j do
     begin
       if prost(i) then
       if j mod i = 0 then x:=false;
     end;
   if x and (j mod 2=0) and (j mod 3=0) and (j mod 5 = 0) then
   begin
     writeln(j);
     y:=y+1;
   end;
   end;
 end.

 var i,s:real;
 
 begin
  i:=99;
  s:=sqrt(i);
  while i>=3 do
  begin
    i:=i-3;
    s:=sqrt(i+s);
  end;
  writeln(s);
 end.

const
 n = 99;
var
 i, h: integer;
 Summa: real;
begin
 h:=3;
 i:=3;
 Summa:=sqrt(i); 
  while i <= n do
   begin
    Summa:=sqrt(i+Summa);
    i:=i+h;
   end;
 writeln('Сумма: ', Summa:0:2);
end.

function Force (n: integer): real;
begin
if n=99 then Force:= sqrt(99)
else Force:= sqrt(n+Force(n+3));
end;
 
 
begin
writeln (Force(3));
end.