Определить кратно ли заданное число 3 если нет вывести остаток

Не я в этом не шарю

Vara,b:integer;beginreadln(a);if a mod 3 = 0 thenbeginwriteln(a,' кратно 3');elsewriteln(a mod 3);end.

Работает?

Ага

Спасибо

Vara,b:integer;beginreadln(a);if a mod 3 = 0 thenbeginwriteln(a,' кратно 3');endelsebeginwriteln(a mod 3);end;end.