LP - Comando de Decisão IF com dupla comparação - Pascal

Program Pzim ;
var  opcao:integer;
base,altura,area,raio:real;
 Begin
  write('Digite 1 para area do triangulo e 2 para a area do ciculo.:');
  read(opcao);
 
  if(opcao=1)then
  Begin
  Write('Digite a base..:');
  read(base);
    Write('Digite a altura:');
  read(altura);
area:=(base*altura)/2;
writeln('A area do triangulo retangulo é ',area:2:2);
end;
  if(opcao=2)then
Begin
  Write('Digite o raio..:');
  read(raio);
    area:=3.14*(raio*raio);
writeln('A area do circulo é ',area:2:2);
end;
  if(opcao<>1)and(opcao<>2)then
Write('Digite uma opção existente !!!');
 End.