Водну и ту же числовую переменную последовательно вводятся целые числа. количесвто вводимых чисел заранее известно ( 0 - конец ввода). определить количество чисел не кратных 5.

На паскале:
Var x,k:integer;
Begin
k:=0;
Repeat
Readln(x);
If (x mod 5 = 0) and (x<>0) then inc(k);
Until x=0;
Writeln(k);
End.