Получить сумму тех чисел данной последовательности которые кратны 3

var i,s,n:integer;
begin
 s:=0;
 for i:=1 to 10 do
   begin
      write('A',i,' = ');
      readln(n);
      if n mod 3=0 then s:=s+n;
   end;
   writeln('Сумма = ', s);
   readln;
end.

var a:array[1..100] of integer;
i,s:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Полученный массив: ');
for i:=1 to n do begin
a[i]:=random(20)-10;
write(a[i],' ');
if (a[i] mod 3=0) then s:=s+a[i];
end;
writeln;
write('Сумма, кратных 3= ',s);
end.

For i:=1 to 10 do
  if i mod 3 = 0 then s:=s+i;
Writeln(s);

while i<>10 do
  begin
    inc(i);
    if i mod 3 = 0 then s:=s+i;
  end;
Writeln(s);

repeat
  inc(i);
  if i mod 3 = 0 then s:=s+i;
Until i=10;
Writeln(s);

uses crt;
const n=10;
var i,sum:integer;
      a:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('Ishodniy massiv:');
for i:=1 to n do begin
a[i]:=random(10);
if (a[i] mod 3=0) then sum:=sum+a[i];
write(a[i],'  ');
end;
writeln('Summa elementov kratnih trem: ',sum);
end.

const
 n=10;
var
 i, a, summ: integer;
begin
 summ:=0;
  for i:=1 to n do
   begin
    a:=random(10)+1;
    write(a, ' ');
     if a mod 3=0 then summ:=summ+a;
   end;
 writeln;
 write(summ);
end.