program Example;
var
  Text: String;
  A: Integer;
begin
  Text := 'Hell';
  A := 1234;
  WriteLn('Leave me');
  WriteLn(Text);
  ReadLn;
end.