identification division.
program-id. grecob.

data division.
working-storage section.
01 name pic x(5).

procedure division.

display 'What is your name?'.
accept name.
display 'Hello, ', name, '!'.
stop run.