Язык программирования не указан, поэтому сделал на паскаль
На сайте автоматически убираются пробелы между строками , поэтому прикреплю к решению скрин
program zn; begin; var a: integer; writeln('Введите число'); readln(a); if a mod 3=0 then writeln('Число делится на 3 без остатка') else writeln(' Число не делится на 3 без остатка'); end.