Egyszerű lazarus feladat megoldása?

Láttam itt gyk-n egy kérdést, hogy ezt a feladatot hogyan oldanánk meg.

Így szól: Olvasson be két egész számot, a nagyobbat ossza el a kisebbel, majd a hányadost és a maradékot írja ki.

Mivel most tanulom én is a Lazarust gondoltam megpróbálom megoldani.

Ez a megoldásom:

VAR a,b:integer;

begin

writeln('Adja meg az első számot:'); readln(a);

writeln('Adja meg a másik számot is:'); readln(b);

if a>b then

begin

writeln(a div b);

writeln(a mod b);

end;

if a<b then

begin

writeln(b div a);

writeln(b mod a);

end;

readln;

end.

Hogy lehetne úgy megcsinálni, hogy ne használjam kétszer az If-et? Szóval rövidebben?