Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр

Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр и разность двух последних цифр

  • var m, n, i, j: integer;
    begin
         readln(n);
         m := n div 1000;
         n := n mod 1000;
         i := n div 100;
         n := n mod 100;
         j := n div 10;
         n := n mod 10;
         writeln(m, '-', i, '=', m + i, ' ', i, '-', j, '=', i - j);
    end.     
  • program fatzz051;
    var a:integer;
    begin
    readln(a);
    writeln('Sum= ',a div 1000+a div 100 mod 10);
    writeln('Razn=',a div 10 mod 10-a mod 10);
    end.