Question

sa elaborez un subprogram procedura care calculeaza aria si perimetrul unui dreptunghi in Pascal. urgent

Answer 1

procedure ap(lu,la:real; var A,P:real);
begin
A:=lu*la;
P:=2*(lu+la);
end;