Решите (паскаль) найти сумму чисел кратных 6

Var       i, n, s: integer; begin       write('n = ');       readln(n);       for i : = 1 to n do               if i mod 6 = 0 then                       s : = s + i;             writeln(s); end.

1.  программы по их юридическому и финансовому статусу можно разделить на три большие группы: лицензионные (платные по скачиванию и лицензии), условно бесплатные (shareware)(нелецензионные, лицензия покупается) и свободно распространяемые программы (freeware) (бесплатные, лицензированные или взломанные). 2.    открытое программное обеспечение  (open-source software)  —  программное обеспечение  с открытым  исходным кодом. то есть программы находящиеся в свободном доступе. 3. не всегда бесплатные программы таковыми являются. пользователь платит за лицензию, платит иногда за установку. но  часто сами производители выпускают бесплатные программы  для ознакомления.которые находятся в свободном доступе и со свободной лицензией.  вывод:   бесплатные программы действительно существуют. и бесплатные программы скачивать можно и даже нужно.