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

Решить с помощью динамического массива, в Paskal.

var a,s,k: integer;    sr: real;begin  k:=0; s:=0;  repeat    readln(a);    s:=s+a;    k:=k+1;  until (s mod 10 = 3) and (s mod 3 = 0);  sr:=round((s/k)*100)/100;  writeln('Выигрыш: ',sr);end.1728108Выигрыш: 15.75