Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc.
(не копируйте с других источников, неправильно)

Program n1;var a,n: integer;f: byte;beginf:=0;readln(a,n);while a<>0 dobeginif a mod 10=n then f:=1;a:=a div 10;end;if f=1 then write('цифра ',n,' присутствует в числе') else write('в числе нет цифры ',n);end.