👤

sa se elaboreze o procedura care calculeaza aria dreptunghiului,perimetru triunghiului in turbo pascal

Răspuns :

procedure Aria(a,b:integer; var S:integer);
begin
 S:=a*b;
end;

procedure Perimetru(a,b,c:integer; var P:integer);
begin
 P:=a+b+c;
end;