Pascal/Turbo Pascal - ayuda rectangulo mediante procedimiento pascal

program unidad6_1_6;

procedure area( VAR a,b:real);

begin

write('Introduce la base del rectangulo');

read(b);

write('Introduce la altura del rectangulo');

readln(a);

end;

 var

 total_area:integer;

begin

writeln area;

total_area:=a*b;

write(total_area);

end.

{Examina los cambios}

program unidad6_1_6;

uses

   crt;

 var

   a, b : real; {No son compatibles con total_area}

   total_area : integer;

procedure area( VAR a,b:real);

begin

write('Introduce la base del rectangulo ');

readln(b);

write('Introduce la altura del rectangulo ');

readln(a);

end;

begin

    clrscr;

    area(a,b);

    total_area := round((a * b) / 2); {A si si son }

    write(' El Area Es : ',total_area);

    readkey;

end.

program unidad6_1_6;

 var

   a, b : real; {No son compatibles con total_area}

   total_area : integer;

procedure area( VAR a,b:real);

begin

write('Introduce la base del rectangulo ');

readln(b);

write('Introduce la altura del rectangulo ');

readln(a);

end;

begin

    area(a,b);

    total_area := round(a * b) ; {A si si son }

    write(' El Area Es : ',total_area);

    readln;

end.

{ Me supongo te refieres round esto lo que realza es un redondeo para sacar un numero entero

 de un decimal.

 Fíjate que intentas tomar dos números reales y meterlos en un numero entero eso no

 funcionara bien.

 Por ello  te pongo los comentarios en la linea si mandas esto como esta y no as dado

 esas funciones tendrás problemas con el profe corrige lo  con números enteros y ya esta.

  a, b : real; esto ponlo a, b  : integer; y listo

   total_area := round(a * b) ;  a qui pon  total_area := (a * b ) / 2 ;

  y pregunto el area no es (base por altura dividido 2) }