Вычислить сумму первых m натуральных чисел

var i:integer;
x,p:real;
 
 begin
 
 readln(x);
   
i:=2;
p:=1;
 
while i<=20 do
 
begin
 
p:= 2 + sqr(i+x) / i+exp(Ln(x)/3);
 
 
writeln('pri I = ',i) ;
writeln('P = ' ,P) ;
i:=i+2;
end;
end.

var s,m:integer;
 
begin
 
s:=0;
 
for m:=0 to  9 do
 
begin
 
S:=S+M;
 
writeln('S = ',S);
end;
end.

uses crt;
var i:integer;
    x,p,t:real;
begin
clrscr;
write('x=');readln(x);
i:=2;
p:=1;
while i<=20 do
 begin
  t:=2+sqr(cos(i+x))/(i+exp(Ln(x)/3));
  p:=p*t;
  writeln('pri I = ',i:2,'  P = ' ,p:9:4);
  i:=i+2;
 end;
readln
end.

uses crt;
var s,m:integer;
begin
clrscr;
s:=0;
write('m=');
readln(m);//m  ввести нужно
for m:=1 to m do//натуральные числа начинаются с 1
S:=S+M;
writeln('S = ',S);
readln
end.