Pascal/Turbo Pascal - Problema con número real

{Mira tu programa corregido}

(*

Nombre:

Email:

Fecha:

Comentario:  Programa que calcula el IMC y

muestra en

pantalla todos los datos

*)

(* Nombre del programa *)

Program Peso_relativo;

uses

   crt;

(* Definición de variables *)

Var

   nombre: string;

   edad: integer;

   peso, altura, peso_rel:real;

(* Programa principal *)

Begin

(* Inicialización de variables *)

   nombre:='';

   edad:=0;

   peso:=0;

   altura:=0;

   peso_rel:=0;

(*Introducción de variables *)

     write('Introduzca su nombre : ');

     read(nombre);

     write('Introduzca su edad   : ');

     read(edad);

     write('Introduzca su altura (m.) :');

     read(altura);

     write('Introduzca su peso (kg) : ');

     read(peso);

(* Cálculo de resultados *)

     peso_rel:=peso/(altura*altura);

(* Presentación de datos en pantalla *)

     writeln(nombre, ' de ', edad, ' años,

tiene un IMC de ', peso_rel:0:2);

readkey;

end.