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

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.