prog;

begin
  var a : string;
  var b : "hello";
  var c : string

  a := "ha";
  c := "he";

  write "ha" <= a;
  write a <= "ha";
  write b <= a;
  write a <= b;
  write a <= c;
  write c <= a;
  write a <= a;

end;
end prog