помогите пожалуйста, очень надо ((( с подругой поспорила..(​

N1

var

 x:integer;

begin

 readln(x);

 if x mod 7 = 0 then write('да')

 else write('нет');

end.

N2

var

 x,y:integer;

begin

 readln(x);

 if x < 0 then y := -3 * x

 else y := x + 5;

 write(y);

end.