Дано ціле число. визначте, чи воно кратне 7. написати на pascal

Var x:integer; 
begin 
writeln('Введіть число x'); 
read(x); 
if x mod 7=0 then writeln('Число ',x,' кратне 7') 
else writeln('Число ',x,' не кратне 7') 
end.