👤

VA ROG!!!!!!!! Scrieti un program pascal ce va calcula lungimea si aria cercului,folosind subprogramul proceduri.


Răspuns :

Procedure cerc(r:integer);
var L,S:real;
const pi=3.14;
begin

 L:=2*pi*r;
 S:=pi*r*r;
 
 write(L,' ',S);

end;

var

 r:integer;
 
begin

 read(r);
 
 cerc(r);

end.