Имеется N количество шариков. Для каждого шарика известен диаметр. Определить количество шариков с диаметром < 5 см.
Program z; Var N,k:integer; Begin k:=0; If N<5 then k:=k+1;writeln(k); End.