4) Ndertoni ushtrimin 1 por duke perdorur nje 
procedure qe llogarit shumen e N nr te plote 
natyror

program ushtrimi4;

procedure llogarit ();
var
 i,n, sh :integer ;
begin
 sh:= 0;
 writeln ('Jepni nr e kufizave qe doni te mblidhni ');
 readln (n);
 for i:= 1 to n do
  begin
   sh:= sh + i ;
  end;
 writeln ('Shuma eshte ', sh);
end;
BEGIN
    llogarit();
    readln;
END.
----------------------------------------------------

5) Ndertoni nje program ne pascal qe
njehson shumen e N numrave te pare 
nga seria e meposhtme: 1+3+5+7+...+N

program ushtrimi5;

procedure llogarit ();
var
 i,n, sh :integer ;
begin
 sh:= 0;
 writeln ('Jepni nr e kufizave qe doni te mblidhni ');
 readln (n);
 for i:= 1 to n do
  begin
   sh:= sh + (2*i-1) ;
  end;
 writeln ('Shuma eshte ', sh);
end;
BEGIN
    llogarit();
    readln;
END.
------------------------------------------------

6) Ndertoni nje program ne pascal qe njehson 
shumen e N numrave te pare nga seria e 
meposhtme: 2+4+6+8+...+N 

program serite ;

procedure llogarit ();
var
 i,n, sh :integer ;
begin
 sh:= 0;
 writeln ('Jepni nr e kufizave qe doni te mblidhni ');
 readln (n);
 for i:= 1 to n do
  begin
   sh:= sh + 2*i ;
  end;
 writeln ('Shuma eshte ', sh);
end;
BEGIN
    llogarit();
    readln;
END.
---------------------------------------------------
7) Ndertoni nje program ne paskal qe njehson shumen dhe 
mesataren e n numrave qe inserton perdoruesi nepermjet 
tastieres 

program ushtrimi7;

procedure llogarit ();
var
 i, n, x, sh:integer;
 m:real;
begin
sh:= 0;
 writeln ('Jep nr e elementeve');
 readln (n);
 writeln ('Jep vlerat me rradhe ');
 for i:= 1 to n do
  begin
   readln (x) ;
   sh:= sh + x;
  end;
 m:= sh / n ;
 writeln ('Shuma eshte ', sh , ' kurse mesatarja eshte ', m:2:2);
end;

BEGIN
 llogarit ();
 readln ;
end.