Pascal/Turbo Pascal - me falla el cáculo en una parte del programa

Buenas tardes tengo un problema y la parte de introducir datos la tengo clara pero la del cálculo algo falla.


saludos


Deberá realizar un programa que calcule un valor que nos indicará el peso relativo. El programa solicitará al usuario sus datos personales (nombre, edad, sexo, etc), su altura y su peso.
¿Cómo se calcula dicho valor? Dividiendo el peso (en Kg.) con el cuadrado de la altura expresada en metros.

Para elevar al cuadrado una cantidad basta con multiplicarla por ella misma:

altura_al_cuadrado := altura * altura;
Una vez calculado el peso relativo, se debe presentar por pantalla: un resumen de todos los datos de entrada y el valor del peso relativo.





PROGRAM Peso;

VAR

NOMBRE : string [67];
sexo : string ;
edad : integer;
altura : real;
peso : integer;
peso_relativo: real;
altura_al_cuadrado: real;

CONST


BEGIN

WRITE ('introduce tu nombre: ');
readln (nombre);
write ('introduce tu edad: ');
readln (edad);
write ('introduce tu altura: ');
readln (altura);
write ('introduce tu peso: ');
readln (peso);
write ('introduce tu sexo: ');
readln (sexo);




END.

begin

altura_al_cuadrado:= altura*altura
writeln ('la altura es: '); write (altura_al_cuadrado);


end.

buenas tardes Ramón, muchísimas gracias fallaba en los últimos códigos ahora si.

writeln(' altura_al_cuadrado es : ',altura_al_cuadrado:0:2);
writeln(' peso_relativo : ',peso_relativo:0:2);
readln;
end.




saludos