C клавиатуры вводятся 30 чисел.Найти произведение положительных чисел.

var a,b,c:integer;beginwriteln('введите 30 чисел');readln(a);b:=1;c:=1;while b<>30 do beginif a > 0 then  c:=a*c;readln(a);b:=b+1;end;writeln('ответ ',c);end.