Programa de area del triangulo

program tria ;
uses crt;
     var
         base,altura:real;
     var
         area :real;
begin
     clrscr;
     write('ingresa la base  :   ');
     readln(base);
     write('ingresa la altura del triangulo :  ');
     readln(altura);
     area:=base*altura/2;
     write('el area es :  ' , area:5:2 );
     readln;
end.