//1
begin
  var a := ReadlnInteger();
  var sum := a mod 10 + a div 10;
  Print(sum mod 8 = 0 ? 'Да' : 'нет')
end.

//2
function Y(x: real): real;
begin
  if x < -1 then result := 3 * x * x
  else if x > 3 then result := x - 4
  else result := 5 * x
end;
begin
  var x := ReadlnInteger();
  Print(Y(x))
end.

//3
begin
  var (a, b, c) := ReadlnReal3();
  Print(Max(a, Max(b, c)))
end.

//4
begin
  var a := ReadlnReal();
  Print((a >= -4) and (a < 5) ? 'да' : 'нет')
end.

//5
begin
  var a := ReadlnReal();
  Print((a < 0) and (a > -5) ? 'да' : 'нет')
end.