найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n
Можно пожалуйста сделать циклом

vari, n, s: integer;beginwrite('Введите N: ');readln(n);s := 0;for i := 1 to n doif i mod 3 = 0 thens := s + sqr(i);writeln(s);end.