Triangul.pas

Triangul.pas

program triangulo;
uses
crt;
var
a,b,h:real;
const
x=2;
begin
writeln('cual es la base del triangulo');
readln(b);
writeln('cual es la altura del triangulo');
readln(h);
a:=(b*h)/x;
writeln('el aria del triangulo es:');
writeln(a);
readln;
end.