Pascal/Turbo Pascal - Funciones para sacar el área y perímetro

const

pi=3.1416;

var

figura,opcion:byte;

lado,diametro,radio:double;

begin

  Writeln('Escoga una figura ');

  Writeln('1: Cuadrado ');

  Writeln('2: Triangulo ');

  readln(figura);

  writeln('Escoga una opcion ');

  writeln('1: Area ');

  writeln('2: perimetro ');

  readln(opcion);

  if figura=1  then

  begin

     writeln('Ingrese el lado' );

     readln(lado);

     if opcion=1 then writeln('El area es ',lado*lado:0:2)

     else if opcion=2 then writeln('El perimetro es ',lado*4:0:2)

     else writeln('Error al seleccionar opcion ');

  end

  else if figura=2 then

  begin

    writeln('Ingrese el diametro del circulo ');

    readln(diametro);

    radio:=diametro/2;

    if opcion=1 then writeln('El area es ',pi*(radio*radio):0:2)

    else if opcion=2 then writeln('El perimetro es ',pi*diametro:0:2)

    else writeln('Error al seleccionar opcion ');

  end;

  readln;

end.