Текст этой программы может быть таким:

Program Primer;
Var
   x, y, z:Byte;
Begin
   Write('Задайте три натуральных числа: ');
   ReadLn(x,y,z);
   WriteLn('Как вы думаете: число ', x ,' равно ', y/z, '?');
End. 

    Обратите внимание, что в примере использована конструкция Write. Это значит, что после вывода фразы:

Задайте три натуральных числа:

курсор останется на этой же строке. Переход на следующую строку произойдет только после выполнения оператора ReadLn. Таким образом, комментарий и введенные данные будут располагаться на одной строке экрана.

    При использовании конструкции WriteLn после ее выполнения курсор перейдет на следующую строку. Следовательно, комментарий и введенные данные будут располагаться на разных строках экрана.