Simbolos numericos turbo pascal

En este ocasión mostrare un ejemplo de turbo pascal en el cual
se introducirán 2 números para mostrar con ellos
el uso de los 4 símbolos numéricos principales
los cuales son:
+  para hacer sumas

como ser 2+2 = 4

- para restas

99-1 = 98

* para multiplicar

5*4 = 20

/ para dividir

99/3 = 33


aqui el codigo:

 Program P3AE4 (input,output); 



uses
 crt; 
Var
 numero1,numero2,total,resto,accion: Integer;
  
 
Begin
  while (accion <> 5) do begin
  
       writeln('Ingrese accion a realizar:');
    writeln('1. sumar:');
    writeln('2. restar:');
    writeln('3. multiplicar:');
    writeln('4. dividir:');
    writeln('5. salir:');
       readln(accion);
    numero1:=-1;
    numero2:=-1;
  
       if(accion = 1) then begin
      while(numero1 <> 0) or (numero2 <> 0) do begin
    writeln('Ingrese los valores a sumar o dos 0(ceros) para salir.');
    writeln('Ingrese el primer numero:');
       readln(numero1);
    writeln('Ingrese el segundo numero:');
       readln(numero2);
    total:= numero1 + numero2;
    writeln('Total de la suma: ',total);
    readkey;
                                                     end;
   end;
  
   if(accion = 2) then begin
      while(numero1 <> 0) or (numero2 <> 0) do begin
    writeln('Ingrese los valores a restar o dos 0(ceros) para salir.');
    writeln('Ingrese el primer numero:');
       readln(numero1);
    writeln('Ingrese el segundo numero:');
       readln(numero2);
    total:= numero1 - numero2;
    writeln('Total de la resta: ',total);
    readkey;
                                               end;
     end;
  
   if(accion = 3) then begin
      while(numero1 <> 0) or (numero2 <> 0) do begin
    writeln('Ingrese los valores a multiplicar o dos 0(ceros) para salir.');
    writeln('Ingrese el primer numero:');
       readln(numero1);
    writeln('Ingrese el segundo numero:');
       readln(numero2);
    total:= numero1 * numero2;
    writeln('Total de la multiplicacion: ',total);
    readkey;
                                                                 end;
                end;
  
  
   if(accion = 4) then begin
      while(numero1 <> 0) or (numero2 <> 0) do begin
    writeln('Ingrese los valores a dividir o dos 0(ceros) para salir.');
    writeln('Ingrese el primer numero:');
       readln(numero1);
    writeln('Ingrese el segundo numero:');
       readln(numero2);
    
    if(numero2 <> 0) then begin
    total:= numero1 div numero2;
    resto:= numero1 mod numero2;
    writeln('Total de la division es: ',total);
    writeln('Resiudo de la division es: ',resto);
    readkey;  
     
       end;
       if (numero2 = 0) then begin  writeln('Error'); 
       end;
     end;
          end;         
        if(accion = 5) then begin writeln('as salido'); end;
        
            
  
    end;
  
                          readkey;
End.
{  //Nota:Este ejersico se puede abreviar aun mas lo puse de esta
 forma a ver si se captan al menos 3 opciones que se pueden cambiar} 

Descargar ejemplo:

simbolos numericos pascal