1) дано целое число, если оно положительное то прибавить к нему 1, а если в противном случаи, то не изменять и написать результат

2) дано число от 1 до 7 (ввести)

В зависимости от значений напичатать дни недели пониднльник-1 и т. д.

Pascal:

1)

var a:integer;

begin

readln (a) ;

if a>0 then a:=a+1;

writeln ('Ответ:', a) ;

end.

2)

var a:integer;

begin

readln (a) ;

case a of

1:writeln ('Понедельник') ;

2:writeln ('Вторник') ;

3:writeln ('Среда') ;

4:writeln ('Четверг') ;

5:writeln ('Пятница') ;

6:writeln ('Суббота') ;

7:writeln ('Воскресенье')

else writeln ('Ошибка') ;

end;

end.

//Могу написать тоже самое на c + + если нужно.