помогите составить программу на паскале Вычислить сумму чисел натурального ряда, делящихся на 3, до тех пор, пока сумма не превысит 500. Определить число членов суммы. Значение суммы и число ее членов вывести на экран с соответствующими комментариями.

Спасибо большое))))

Вроде получилось:var a,b,s:integer; beginwrite('Числа = ');for a:=1 to 100 dobeginb:=a mod 3;if (b = 0) thenbeginwrite(a,', ');s:=s+a;if((s > 500) and (s<520)) then break;end;end;writeln('Сумма чисел = ', s);end.Результат: