ПОМОГИТЕ НА ЗАВТРА НУЖНО ОЧЕНЬ!) Напишите программу, вычисляющую сумму только тех из введенных чисел, которые делятся нацело на 6.

vara,i,n,s:integer;beginwrite('Сколько чисел будет введено? - ');readln(n);s:=0;for i:= 1 to n dobegin  readln(a);  if a mod 6=0 then s:=s+a;end;writeln('Сумма чисел кратных 6 = ', s);end.