Calcular Áreas

program nombre;
uses wincrt;
var
op,ac,r,at,b,h,aCuadrado,l:real;
begin
writeln('***Menú***');
writeln('');
writeln('pulse 1 para area triangulo');
writeln('pulse 2 para area cuadrado');
writeln('pulse 3 para area circulo');
readln (op);
if op=1 then
begin
writeln('ingrese b');
readln(b);
writeln('ingrese h');
readln(h);
at:=(b*h)/2;
writeln('resultado',AT:5:2);
end
else
if op=2 then
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado:5:2);
end
else
if op=3 then
begin
writeln('ingrese r');
readln(r);
ac:=3.1416*(r*r);
writeln('resultado', ac:5:2);
end
else
writeln('opsion no valida');
end.