Переделать программу в процедуру без параметров program pl_kruga; uses crt; var l,s,r: real; begin writeln(; readln(l); r: =l/2*3.14; s: =3.14*r*r; writeln(s: 4: 2); end.

Program Pl_kruga;

uses
  crt;

procedure SKr(L: real; var S: real);
var
  R: real;
begin
  R := L / 2 * Pi;
  S := Pi * sqr(R);
end;

{ а это вызов }

var
  L, S: real;

begin
  Writeln('введи...');
  Readln(L);
  SKr(L, S);
  Writeln(S:4:2)
end.