(1)
Procedure PSumN(var sum:integer; n:integer);
Var
  i:integer;
begin
  for i:=1 to n do
    sum:=sum+i;   //sum первоначально должна быть равна нулю!
end;

(2)
Function FSumN(n:integer):integer;
Var
  i:integer;
begin
  for i:=1 to n do
    Result:=Result+i; //Result по правилу это переменная, значение которой присваивает функция(всегда!)   
end;

(3)
Procedure S_L(var s,l:real; r:real);  // r - радиус
Begin
  S:=pi*sqr(r);  //Площадь круга
  L:=2*pi*r;     //Длина окружности
End;

(4)
Function Min(x,y,z,k:real):real;
Begin
  min:=x;
  If y<Min then Min:=y;
  If z<Min then Min:=z;
  If k<Min then Min:=k;
End;