Pascal, Medindo um retângulo

Esse é um programa que calcula a área de um retângulo na linguagem PASCAL, própria pro compilamento no Pzim.



program areatrianguloICODE;
var

b: integer; {medida da base do triangulo}
h: integer; {medida da altura do triangulo}
A: real; {mostra a area do triangulo}

begin

{comando para desenhar o triangulo}
pfrente(80);
pdireita(150);
pfrente(92);
pdireita(120);
pfrente(46);
pdireita(90);
dr;

{comandos para calcular a area do triangulo}
b:= 23; {valor da base}
h:= 80; {valor da altura}
A:= (b*h)/2;
writeln(A); {mostra o valor da area do triangulo}
end.