Дано многозначное число. Проверить, есть ли среди цифр данного числа цифра 4.

Спасибоооооо огроооооомное!!!!!!!!)))))))))♡♡♡♡♡

Var   A:longint;   k:byte;Begink:=0;Write('Введите число: ');ReadLn(A);A:=Abs(A);While A > 0 do   Begin   if A mod 10 = 4 then k:=1;   A:=A div 10   End;if k=0 then WriteLn('В данном числе нет цифры 4')else WriteLn('В данном числе есть цифра 4');End.