1)Дано целое число N.Написать программу,заменяющую его 1,если число меньше нуля,и увеличивающую его на 6,если число больше или равно нулю.
2) Даны два числа a и b.Написать программу,которая выводит номер большего из них

вот вот. полностью с тобой согласна

1) program chislo1uses crtvar a: longint;beginclrscr;writeln ('введите целое число');readln(a);if a<0 then a:=1else a:=a+6;writeln (a);end.2) program chislo2uses crtvar a,b: longint;beginclrscr;writeln ('введите два числа через пробел');readln(a, b);if a>b then writeln (a)else writeln (b);end.