Задача в Паскаль. Операторы IF-else

Просто составить, запутался в операторах

Program N;

var a: integer;

begin

write ('Введите целое число: ') ;

readln (a) ;

if a = 0 then writeln ('ноль') {если введённое число равно 0, то вывести соответствующее сообщение}

else if a = 1 then {иначе если данное число равно 1, то вывести соответствующее сообщение}

writeln ('один')

else if a = 2 then writeln ('2') {иначе если данное число-2, то вывести соответствующее сообщение}

else writeln ('неизвестное число') ; {иначе число незивестное}

readln

end.