[AND_REY]

Так чтоль
1-й:

Код:

Const
 P = 3.14159;
var
 r: Integer;
 Rezultat: Real;
begin
 Rezultat:= 2*P*r;
end;

2-й:

Код:

var
 L, mlm, r: Integer;
 Rezultat: Real;
begin
 Rezultat:= L*((mlm*2)/(r*r));
end;