{$codepage UTF8} VAR a,b:Longint; r:Longint; rr,ar,br:Double; BEGIN Write('a : ');Readln(a); Write('b : ');Readln(b); Write('ar : ');Readln(ar); Write('br : ');Readln(br); r:=a + b; Writeln('a+b = ',r); r:=a * b; Writeln('a*b = ',r); rr:=ar/br; {Sólo para reales} Writeln('ar/br = ',rr:10:8); r:=a mod b; {Sólo para Enteros} Writeln('a mod b = ',r); r:=a div b; {Sólo para Enteros} Writeln('a Div b = ',r); Readln END.