Решение задачи Begin22

Решения задачи используя третью переменную для замены:

uses
  PT4;

var
  a, b, t: real;

begin
  Task('Begin22');
  read(a, b);
  t := a; a := b; b := t;
  write(a, b);
end.

Решения не используя третью переменную, замена помощью сложения:

uses
  PT4;

var
  a, b: real;

begin
  Task('Begin22');
  read(a, b);
  a := a + b;
  b := a - b;
  a := a - b;
  write(a, b);
end.