Склавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 найти количество чисел из введенных кратных 5

Var a, b : integer;beginb:=0;readln(a);while a<> 0 dobeginif a mod 5 = 0 then b:=b+1;readln(a);end;writeln('Кол-во чисел кратных 5: ', b);end.