Вопрос Pascal. Что делает данная программа?

[Krirtuba]

Что делает данная программа?

var n:integer;

begin

readln;

writeln(1-(n mod 3+1)div 2)

end.

 

[qqqqwwwweeee]

считывает число с клавиатуры и выводит вычисленное выражение

 

[ваня12345]

Из 1 вычитает остаток от деления введённого числа на 3, увеличенный на единицу. Результат делит (нацело) на 2. Получившееся число -- выводит в консоль.

 

[lFr0stl]

Принимает число, подставляет его в формулу и считает

 

[Dimon]

Вычисляет числа кратные 3. Если число делится на 3, то в результате будет 1 (т. е. истина). Если нет, то 0 (т. е. лож).

 

[qaqa]

я не программирую на паскале, но, судя по командам, пишет чето в консольной строке.