Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу помогите, пипец как надо!!!
var a:integer;
begin
readln (a);
if (a>0) then
begin
a:=a+1;
writeln (a);
end
else
writeln (a);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
