Впрограмме паскаль нужно вывести число одно большое другое меньшее

Var a,b:Integer;
Begin
If a>b then writeln(a,'>',b);
If b>a then writeln(b,'>',a);
If a=b then writeln(a,'=',b);
End.