Programação Pascal - Operações Matemáticas

 var x,n,soma,mt,divisao,sub : integer;

begin

x := 0;

n := 0;

soma := 0;

mt := 0;

divisao := 0;

sub := 0;

begin

 writeln('Digite o numero1: ');

 readln(x);

 writeln('Digite um numero2: ');

 readln(n);

 end;

 soma := n + x;

 mt := n * x;

 divisao := n div x;

 sub := n - x;

 write('A soma ‚ igual =');

 writeln(soma);

 write('A multiplicao ‚ igual = ');

 writeln(mt);

write('A divisao ‚ igual = ');

 writeln(divisao);

write('A subtracao ‚ igual = ');

 writeln(sub);

end.