написать программу с процедурой

var
  a, b: real;
  i: integer;
 
procedure LengthAndArea(rad: integer; var l, s: real );
begin
  l := 2 * Pi * rad;
  s := Pi * Sqr(rad);
end;
 
begin
  i := 2;
  while i <= 10 do
  begin
    LengthAndArea(i, a, b);
    Writeln('Радиус = ', i, '; Длина окружности = ', a:0:5, '; Площадь = ', b:0:5);
    i := i + 2;
  end;
  Readln
end.

Program ellips;
Const
  r1=2;
  r2=4;
  r3=6;
  r4=8;
  r5=10;
  Pi=3.14;
Var
  L1, L2, L3, L4, L5, S1, S2, S3, S4, S5: integer;
begin
 
  Writeln('Даны радиусы: ');
  Writeln(r1);
  Writeln(r2);
  Writeln(r3);
  Writeln(r4);
  Writeln(r5);
 
Procedure Dlin_okr( r: integer;var L: integer);
begin
  L:=2*Pi*r;
end;
 
Procedure Pl_kr( r: integer;var S: integer);
begin
  S:=Pi*r*r;
end;
 
  Dlin_okr(r1,L1);
  Dlin_okr(r2,L2);
  Dlin_okr(r3,L3);
  Dlin_okr(r4,L4);
  Dlin_okr(r5,L5);
 
  Pl_kr( r1, S1);
  Pl_kr( r2, S2);
  Pl_kr( r3, S3);
  Pl_kr( r4, S4);
  Pl_kr( r5, S5);
 
  Writeln('Длины окружностей: ');
  Writeln(L1);
  Writeln(L2);
  Writeln(L3);
  Writeln(L4);
  Writeln(L5);
  Writeln;
  Writeln('Площади кругов: ');
  Writeln(S1);
  Writeln(S2);
  Writeln(S3);
  Writeln(S4);
  Writeln(S5);
end.