Menu Calcular operações soma, subtrair, multiplicar, dividir e equação 2º grau. Operação Case of, begin end.

//calcular operações soma, subtrair, multiplicar, dividir e equação 2º grau.
//Operação Case of, begin end.

program  calculadoracase;
uses crt;
var opcao: integer;
  a : real;
  b : real;
  c : real;
  d : real;
  x1 : real;
  x2 : real;
begin
  writeln('Menu');
  writeln('1 - somar ');
  writeln('2 - subtrair ');
  writeln('3 - Dividr ');
  writeln('4 - Multiplicar ');
  Writeln('5 - equacao de segundo grau ');
  writeln('Digite sua opcao: ');
  readln(opcao);

  case opcao of
       1:
         begin
          writeln('somar');
           write('Digite o primeiro numero: ');
           readln(a);
           write('Digite o primeiro numero: ');
           readln(b);
           x1 := a + b;
           writeln('Resultado: ',x1:0:2);
         end;

       2:
       begin
           Writeln('Subitrair');
           write('Digite o primeiro numero: ');
           readln(a);
           write('Digite o primeiro numero: ');
           readln(b);
           x1 := a - b;
           writeln('Resultado: ',x1:0:2);

       end;
       3:
         begin
           Writeln('Dividir');
           write('Digite o primeiro numero: ');
           readln(a);
           write('Digite o primeiro numero: ');
           readln(b);
           x1 := a / b;
           writeln('Resultado: ',x1:0:2);
         end;
       4:
         begin
           Writeln('Multiplicar');
           write('Digite o primeiro numero: ');
           readln(a);
           write('Digite o primeiro numero: ');
           readln(b);
           x1 := a * b;
           writeln('Resultado: ',x1:0:2);
         end;

       5:
         Begin
           writeln('Equação de segundo Grau');
           Write('Digite o valor para a: ');
           readln(a);
           Write('Digite o valor para b: ');
           readln(b);
           Write('Digite o valor para c: ');
           readln(c);

           d := (b*b)-(4*a*c);
           if(d>0) then
             begin
               x1 := (-b + sqrt(d)) / (2*a);
               x2 := (-b - sqrt(d)) / (2*a);
               writeln('x = ', x2:0:2);

             end
           else
               writeln('conjunto vazio');
         end
       else
         writeln('Digita certo seu orelhudo');
  end;

  readkey;

end.