Program VymenyPom;

var Hrabal, Hrabal2, Pom : String;

begin
  Hrabal := 'Obsluhoval jsem anglickho krle';
         {naplnn prvn promnn}
  Hrabal2 := 'Postiiny';
         {naplnn druh promnn}
  writeln(Hrabal);
  writeln(Hrabal2);
  Pom := Hrabal;     {1. krok vmny}
  Hrabal := Hrabal2; {2. krok vmny}
  Hrabal2 := Pom;    {3. krok vmny}
  writeln(Hrabal);
  writeln(Hrabal2);
  readln;
end.