Va rog ajutor la PASCAL


program care citeste doua numere reale a si b, lungimile laturilor unui dreptunghi, apui afiseaza aria si perimetrul dreptunghiului.
Programul va contine doua functii cate una pentru fiecare calcul si afisarea fiecareai dun marimile creute


Răspuns :

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.