{ project7.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Numbers;

procedure Exchange(var X, Y: Real);
  { меняет местами значения переменных X и Y }
begin
  X := Y;
  Y := X;
end;

var
  A, B: Real;

begin
  Write('Введите числа A и B =>_');
  ReadLn(A, B);
  Exchange(A, B);
  WriteLn('После обмена A=', A, ' B=', B);
  ReadLn;
end.