Question

Помогите решить задания для 8 класса по информатике Запишите, что выполняет данная программа:
Program v1;
Var k, i : integer;
Begin
k:=0;
For i:=1 to 100 do
If i mod 3=0 then k:=k+1;
Writeln(k);
End. помогите плиз