suma_de_.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program suma_de_divizori;
var  n,i,s   : word;
begin
write('n=');readln(n);
s:=0;
for i:=3 to n do
  if i mod 3 = 0 then s:=s+i;
  write('s=',s);
end.