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.