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

Question

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

Answer 1

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