Паскаль. является ли число четным,если да,то делится ли оно на 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.