Este programa obtiene el aria de un triangulo utilizando procedimientos en pascal.
uses
crt;
var
resultado,base,altura:real;
procedure area(base,altura:real;var a:real);
begin
a:=(base*altura)/2;
end;
procedure leer(var base,altura:real);
begin
write('base: ');readln(base);
write('altura: ');readln(altura);
end;
procedure res(final:real);
begin
Write(final:0:2);
end;
begin
ClrScr;
leer(base,altura);
area(base,altura,resultado);
res(resultado);
ReadKey;
end.