объяснить работу программы для вычисления Как узнать сколько нулей в факториале (Паскаль)varn,x,s: integer;begins:=0;readln(n);x:=5;while x <= n dobegininc(s, n div x);x:= x * 5end;writeln(s);end.

s - это счетчик 
потом читаем n 
x присваиваем значение 5
(цикл) цикл будет работать от x (тоесть от 5) и до тех пор пока n  не будет равно x увиличаем число на определённое значение s(тоесть 0,(то число которое ты ввел)находим целую часть этих чисел при делении на x )
x присваиваем значение x * 5
выводим в s
И программа вообще не работает (что тебе нужно найти?)