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

1) program chislo1 uses crt var a: longint; begin clrscr; writeln ('введите целое число'); readln(a); if a<0 then a:=1 else a:=a+6; writeln (a); end. 2) program chislo2 uses crt var a,b: longint; begin clrscr; writeln ('введите два числа через пробел'); readln(a, b); if a>b then writeln (a) else writeln (b); end.