В целом четырехзначном числе сравнить суммы двух первых и двух…

Var n,a,b,c,d: integer; begin readln (n); a: =n mod 10; n: =n div 10; b: =n mod 10; n: =n div 10; c: =n mod 10; d: =n div 10; if a+b>c+d then writeln ('последние две больше') else if a+b