Паскаль. Является ли число четным, если да, то делится ли оно на 10

Var x: integer;

begin writeln ('Введите число:') ; readln (x) ; if x mod 2 = 0 then begin writeln ('Число является четным.') ; if x mod 10 = 0 then writeln ('Число делится на 10.') else writeln ('Число не делится на 10.') ; end else writeln ('Число не является четным') ; end.