Напишите пожалуйста, 3 программы на Pascal'е:

1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток от деления этого числа на 2.

2. Ввести двузначное число. Определить, какая цифра в числе больше.

3. Дано число. Является ли число 7 его делителем?

Program R1;Var n:integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);readln(n);if n>0 then n:=n+1 elsen:=abs(n mod 2) ;  {примечание-остаток будет положительным)writeln(n);close(input);close(output);end.

2 задача

Program R1;Var n,l:integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);readln(n);if (n mod 10)>(n div 10) then writeln('2>1') elseif (n mod 10)<(n div 10) then writeln('2<1') elseif (n mod 10)=(n div 10) then writeln('2=1');close(input);close(output);end.