РЕШИТЕ ДЛЯ 8 КЛАССА БЕЗ ЗАУМНЫХ ВЕЩЕЙ ПРИ ПОМОЩИ ИФ,ВАЙЛ и тд в ПАСКАЛЕ АБЦ.
На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3.
Входные данные:73,13,14,133,63,0.
Выходные данные:196

спасибо

var a,s:integer;begins:=0;repeatwrite('Введите число: ');readln(a);if (a mod 7=0) and (a mod 10=3) then s:=s+a;until a = 0;writeln('Сумма всех чисел, кратных 7 и оканчивающихся на 3 равна ',s);readlnend.