Ввели число, выясните , делится ли оно нацело на 3?

Вопрос школьника по предмету Информатика

Ввели число, выясните , делится ли оно нацело на 3?

Ответ учителя по предмету Информатика

Program n1;

var a: integer;

begin

readln(a);

if a mod 3=0 then write(‘делится’)

else write(‘не делится’);

end.