Что будет напечатано:
с:=46381;
а:=(c div100) mod 100; b:=(c mod 1000) div 10; if a>b then writeLn (a-b) else writeln(2*b);

0