Какие условные операторы записаны верно на языке Pascal ?

• if x<>0 then write\(x\); else y:= x+1;
• if \(x \\gt 0\) and \(x \\lt 5\) then x := x + 1; y := x else x := 0; y := y + 1;
• if x = y then x := y + 5;
• if x := 0 then begin x := x + 5; y := 0 end;
• if x > y then begin x := y - 2; y := 0 end else x := y/2;
• if x mod 2 =0 then begin x := x + 1; y := x div 10 end; else begin x := x - 1; y := 0 end;
• if x mod 2 <> 0 then begin y := x +1; x := 0 end else begin x := x/2; y := 0 end;