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

спасибо за помощь)

Здесь простое решение: Превращаем число Х в строку символов,а затем , просматривая эту строку пытаемся найти в нем пятерки.Что-то типа этого:var X, Col,  i: integer;     Stroka: String;  beginCol:=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.