Um programa Delphi que lê dois números e mostra a soma, subtração, multiplicação e a divisão dos números lidos - Desafio de Programação Resolvido em Delphi

Informe o primeiro número: 9
Informe o segundo numero: 4
A soma é: 13
A subtração é: 5
A multiplicação é: 36
A divisão é: 2.25

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// Algoritmo Delphi para somar, subtrair, multiplicar e dividir
// dois números informados pelo usuário

program estudos_delphi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n1, n2: Integer;
  soma, subtracao, multiplicacao: Integer;
  divisao: Double;

begin
  try
    // vamos ler o primeiro número
    Write('Informe o primeiro número: ');
    ReadLn(n1);

    // vamos ler o segundo número
    Write('Informe o segundo número: ');
    ReadLn(n2);

    // primeiro vamos somar os dois números
    soma := n1 + n2;
    WriteLn('A soma é: ' + IntToStr(soma));

    // agora vamos subtrair
    subtracao := n1 - n2;
    WriteLn('A subtração é: ' + IntToStr(subtracao));

    // agora a multiplicação
    multiplicacao := n1 * n2;
    WriteLn('A multiplicação é: ' + IntToStr(multiplicacao));

    // e finalmente a divisão
    divisao := n1 / n2;
    WriteLn('A divisão é: ' + FloatToStr(divisao));

    WriteLn;
    Write('Pressione Enter para sair...');
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.