program AriaPerimetrul;
var Lungime, Latime: real;
function Arie(a, b:real): real;
begin
Arie:=a*b;
end;
function Perimetru(a,b: real):real;
begin
Perimetru:=2*(a+b);
end;
begin
write('Lungime='); read(Lungime);
write('Latime='); read(Latime);
writeln('Aria = ', Arie(Lungime,Latime));
writeln('Perimetrul= ', Perimetru(Lungime,Latime));
end.