Паскаль. Даны три целых числа. Определите сумму тех из них, которые не кратны трём. Можно код? Очень нужно.

Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем. var a,n,i,s:integer; begin  read(n);  while i<n do begin   read(a);   if (a mod 3=1) then s:=s+a; i:=i+1;  end;  writeln(s);  end.