Дано трехзначное число…

Var a, b, c: integer; begin readln (a); b: =(a mod 10*100)+(a mod 100 div 10*10)+(a div 100); if (a > b) then writeln (a, ' > ', b) else if (a=b) then writeln (a, '=', b) else writeln (a, ' < ', b); end.