1)в переменные а и в записаны целые числа (оператором присваивания, например, а: =20; в: =13). поменяйте числа в этих переменных местами. воспользуйтесь третьей переменной – с. 2)выполните 13 без использования третьей переменной с. ,

Var
  a, b, c: integer;

begin
  { Первый
  a := 20; b := 13;
  c := a;
  a := b;
  b := c;
  Writeln('a=', a, ', b=', b);
  { Второй
  a := 20; b := 13;
  a := a + b;
  b := a - b;
  a := a - b;
  Writeln('a=', a, ', b=', b);
end.

Тестовое решение:

a=13, b=20
a=13, b=20