Помогите решить задачи в Turbo Pascal

[Tiywa]

Помогите решить задачи в Turbo Pascal

Здравствуйте. Помогите решить задачи.
1. Напишите процедуру которая вычисляет сумму n первых натуральных чисел;
2. Напишите функцию которая возвращает сумму n первых натуральных чисел.
3. Напишите процедуру которая вычисляет площадь круга и длину окружности ;
4. Напишите функцию которая возвращает минимальное из чисел x, y ,z, k.
P.S. Заранее благодарю.

 

[AlexZir]

В какой форме вам нужно решить задачу - в одной программе или в разных?

 

[Gerald]

(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;