首先进入a001中。

找到‘范例程序码’蓝色超链接，找到你想找的。

闲话少说，pascal答案

var

  s : string;
begin
  while not eof do begin
  readln(s);
  writeln('hello, ',s);
  end;
end.

所有的空行去掉，谢谢支持。