Pascal/Turbo Pascal - ayuda programa basico

Hola tengo un pequeño problema
se me pide lo siguiente
Escriba un programa que le pida al usuario la base y la altura de un triángulo y le muestre por pantalla el área del mismo
yo hice esto

Program Triang;

Const
Hola='Bienvenido alumno';

Var
base, altura, area : real;
alumno, triangulo : string[40];

Begin
write ('Bienvenido alumno');
readln (alumno);

write ('Calcule el area de un triangulo:');
readln (triangulo);

write ('Introduzca la base:');
readln (base);

write ('Introduzca la altura:');
readln (altura);

area:=(base * altura) / 2;
write (el resultado es:)


End.

y evidentemente no sale
a ver si me echan una mano
gracias adelantadas

Solucionado, disculpen!
un readkey y modificar un write del final, aunque no se que significa para q se utiliza el readkey pq sin el no me hace la operacion