Введи пропущенные фрагменты

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

Для решения данной задачи была написана программа, некоторые фрагменты программы были утеряны. Введи пропущенные фрагменты.

var

W: [ ];

[ ]

writeln('Введите целое число:');

readln(W);

if [ ][ ] W:=W+1;

writeln(W);

end.