Дано число если даное число нечотное то умножить на 2 если даное число больше 7-ми то вычислить квадратный корень

Паскаль:
var a:integer;begin  ReadLn(a);  if not (a mod 2 = 0) then WriteLn(a*2);  if a > 7 then Writeln(Sqrt(a));end.

Лучшее ставь!