Pascal/Turbo Pascal - El resultado me salgan dos decimales

begin

  writeln (' radio');

  read (radio);

  writeln('perimetro o area?');

  pi:=3.14;

  area:=0;

  perimetro:=1;

  writeln ('area=0 perimetro=1');

  read(area);

  if area=0 then

    resul:=radio*radio*pi

  else

    resul:=2*radio*pi;

  writeln (resul);

  read (tonta);

end.

{se puede poner asi:}

writeln('', pi:8:2);

{esto se expresa como 8 cifras en total [incluso ;) el punto] y dos despues del punto decimal;}

{que esté bien}

uses crt;

const

	pi=3.14;

var

	radio,resul:real;

	opc:char;

begin

	clrscr;

	write('radio: ');

	readln(radio);

	write('perimetro[P] o area[A]: ');

	readln(opc);

	if opc='P' then

		resul:=radio*radio*pi

	else

		resul:=2*radio*pi;

	writeln (resul:5:2);

end.