Информатика Написать программы на языке Pascal

Информатика
Написать программы на языке Pascal
Условный оператор if
1) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
2) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
3) Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него; если нулевым, то заменить его на 10. Вывести полученное число.
4) Даны три целых числа. Найти количество положительных чисел в исходном наборе.
5) Даны три числа. Найти сумму двух наибольших из них.
Оператор выбора case
1) Арифметические действия над числами пронумерованы следующим образом: 1 – сложение, 2 – вычитание, 3- умножение, 4 – деление. Дан номер действия N (целое число в диапазоне 1 - 4) и вещественные числа А и В (В не равно 0). Выполнить над числами указанное действие и вывести результат.
2) Дано целое число в диапазоне 20 -69, определяющее возраст в годах. Вывести строку – описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 20 – «двадцать лет», 32 «тридцать два года» и т.д.