программа на паскалm: ввести число с клавиатуры .определить делится ли число на 3 без остатка и вывести результат на экр

program gh;
var a:inteher;
begin
writeln ('vvedite chislo');
readln (a);
if a mod 3 = 0 then writeln ('chislo delitsya');
else writeln ('chislo ne delitsya');
readln;
end.

Как-то так. Насчет точки с запятой перед else не уверен. не помню надо или нет.