Program arit; Uses crt; Var a, b : Integer; s,r,m,d : Real; Begin Clrscr; Write('Ingrese el primer n£mero : '); Readln(a); Write('Ingrese el segundo n£mero : '); Readln(b); s :=a+b; r :=a-b; m :=a*b; d :=a/b; Writeln('El resultado de la suma es : ',s:0:2); Writeln('El resultado de la resta es : ',r:0:2); Writeln('El resultado de la multiplicaci¢n es : ',m:0:2); Writeln('El resultado de la divisi¢n es : ',d:0:2); Readln; End.