Pascal/Turbo Pascal - Ayuda, tengo que crear un programa

var

base,altura,total:integer;

begin

  writeln('ingresa la base: ');

  readln(base);

  writeln('ingresa la altura: ');

  readln(altura);

  total:=(base*altura) div 2;

  writeln('El area del tringulo es: ',total);

readln;

end.