Александра Решетникова
ИЧ
Ирина Чернюх
var n,digit:integer;
begin
write('Введите число: ');
readln(n);
while (n>0) do
begin
digit:=n mod 10;
n:=n div 10;
if digit:=4 then write ('в числе присутствует цифра 4');
end;
end.