program test_procedure;

procedure print(s : string);
begin
  writeln('> ', s);
end;

begin
  print('test procedure');
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}