program hello;

Procedure DoHello;

begin
  Writeln('Hello again');
end;

Var
  A : Integer = 1;

begin
  Writeln('Hello, world');
end.