Matvey_Kozvonin

dz 8

Jan 21st, 2024
10
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. var
  2. a, b, c, d : Integer;
  3. begin
  4. Readln(a,b,c,d);
  5. if a < b then Swap(a, b);
  6. if c < d then Swap(c, d);
  7. if a < c then Swap(a, c);
  8. if b < d then Swap(b, d);
  9. if b < c then Swap(b, c);
  10. Writeln(a, ' ', b, ' ', c, ' ', d);
  11. end.
  12.  
Add Comment
Please, Sign In to add comment