ПАСКАЛЬ.Ввести с клавиатуры 3 числа. Вывести их на экран в порядке возрастания.Пожалуйста посчитайте пожалуйста!

procedure Swap(var A, B : Integer); begin A := A + B; B := A - B; A := A - B; end;  var A, B, C : Integer; begin Write('Введите A B C : '); ReadLn(A, B, C); if A < B then Swap(A, B); if B < C then Swap(B, C); if A < B then Swap(A, B); WriteLn(A, B, C); end.