Помогите написать программу,на паскале,заранее спасибо,очень нужно

program n20_2;var a, s:integer;begin;readln(a);while a<>0 do begin; readln(a);if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;end;write(s);end.

А там разве If должен быть?

Спасибо

If нужен, чтобы проверить, принадлежит ли число интервалу и является ли оно чётным.

Ой, только что заметил, что программа должна выводить 'net', если нет чётных чисел, принадлежащих интервалу. Замени "write(s)" на "if s>0 then write(s) else write('net');"

program n20_2;var a, s:integer;begin;repeat    readln(a);if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;until a = 0;write(s);end.