دو عدد a وb را خوانده و انها را با یکدیگر مقایسه و سپس عدد بزرگتر را در aوعدد کوچک را در bذخیره و چاپ کند(پاسکال)

دو عدد a وb را خوانده و انها را با یکدیگر مقایسه و سپس عدد بزرگتر را در aوعدد کوچک را در bذخیره و چاپ کند


Var
Temp , a,b : integer ;
Begin
Writeln ( ' please enter first number :' ) ;
Read (a) ;
Writeln ( ' please enter second number : ' ) ;
Read (b) ;
If (a<b) then
Begin
Temp := a ;
a := b ;
b := Temp ;
End
Writeln ( ' the biger number is a : ' , a);
Writeln ( ' the smaller number is b : ' , b) ;
End.