По информатике проходим паскаль. Дано задание найти количество 5 в числе х!помогите пожалуйста.

Здесь простое решение: Превращаем число Х в строку символов, а затем , просматривая эту строку пытаемся найти в нем пятерки. Что-то типа этого: var X, Col,  i: integer;      Stroka: String;  begin Col:=0;  Write('Ведите число Х='); ReadLn(X); Str(x, Stroka); for i:=1 to length (Stroka) do     if Stroka[i]='5' then Col:=Col+1; WriteLn('Число пятерок=' , Col); ReadLn; end.