Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ..., [tex] a_{n} [/tex] .Вычислить сумму чисел а₁, а₂, ..., [tex] a_{n} [/tex], кратных 3.

Var n,i,k,s : integer;Begin  s:=0;  Write('N ? '); Readln(n);  Writeln('Вводите a1 a2 ... aN');  For i:=1 to n do  Begin    Readln(k);    If k mod 3 = 0 then s:=s+k;  end;  Writeln('Сумма кратных трём: ',s);end.