Задание

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

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

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

var

W: ;

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

readln(W);

if W:=W+1;

writeln(W);

end.