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

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