Question

1.Написать
процедуру, меняющую значения двух переменных а и b местами.
2.Используя
процедуру обмена значений двух переменных, упорядочьте по возрастанию
переменные a, b, c.

Answer 1

Procedure Swap(var a, b: object);
var c: object := a;
begin
  a := b;
  b := c;
end;

var
  a, b, c: byte;

begin
  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);
  if (b > c) then Swap(b, c);
  writeln(a, b, c);
end.