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

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