Operaçoes Basicas: Soma, Subtrair, Multiplicar, Dividir 2 Numeros.

//Calcula operaçoes basicas soma, subtrair, multiplicar, Dividir 2 numeros.

program soma;
uses crt;
var
  n1     : integer;
  n2     : integer;
  soma1  : integer;
  subt   : integer;
  mult   : integer;
  divid  : real;

begin
write('Digite o Primeiro Numero: ');
readln(n1);

writeln('');

write('Digite o Segundo Numero: ');
readln(n2);

soma1 := (n1 + n2);
     writeln ( 'Soma =  ',soma1);

subt := (n1 - n2);
     writeln( ' subtrair =  ',subt);

mult := (n1 * n2);
     writeln( ' Multiplicar = ',mult);

divid :=  (n1 / n2);
    writeln( ' Dividir = ', divid:0:2);

readkey;
end.
                             
__________________________________