напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел кратных 3 или сообщает , что таких чисел нет. программа на вход получает натуральные числа , последовательность заканчивается при вводе 0 . (pascal)

VarA,S,N:integer;BeginWriteLn('Введите числа');S:=0;N:=-1;RepeatRead(A);if A mod 3 = 0 then   Begin   S:=S+A;   N:=N+1;   EndUntil A=0;WriteLn(S/N);End.