Определить входит ли цифра m в четырехзначное число n(написать )

Program prim; uses      crt; var      m,n: integer; begin     writeln('введите цифру m');       readln(m);       writeln('введите четырёхзначное число n');       readln(n);     if (n mod 10=m) or (n div 10 mod 10=m) or (n div 100 mod 10=m) or (n div 1000=m)     then          write ('цифра ',m,' входит в число ',n)    else          write ('цифра ',m,' не входит в число  ',n); end.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! egin   var s : = readstring;   var digit, letter: integer;   for var i : = 1 to s.length do       if (s[i] > = '0') and (s[i] < = '9') then           inc(digit)       else       if (s[i] ='ё')or(s[i]='ё')or(s[i] > ='а')and(s[i]< ='я')or(s[i] > ='а')and(s[i]< ='я')or(s[i] > ='a')and(s[i]< ='z')or(s[i] > ='a')and(s[i]< ='z')then       inc(letter);         if digit < letter then       writeln('букв больше, чем цифр на ', letter - digit)   else   if digit > (s.length - digit) then       writeln('цифр больше, чем букв на ', digit - letter)   else       writeln('цифр столько же, сколько и букв');   end.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var d: (real,real,real,real)-> real: =           (x1,y1,x2,y2)-> sqrt(sqr(x2-x1)+sqr(y2-y1));   var (x1,y1): =readreal2('введите координаты 1-й точки: ');   var (x2,y2): =readreal2('введите координаты 2-й точки: ');   var (x3,y3): =readreal2('введите координаты 3-й точки: ');   var a: =d(x1,y1,x2,y2);   var b: =d(x2,y2,x3,y3);   var c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       var p: =(a+b+c)/2;       var s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. пример введите координаты 1-й точки: -2.5 1.6 введите координаты 2-й точки: 5.2 4 введите координаты 3-й точки: 1 -1 s = 14.21 pascal abc, free pascal var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; function d(x1,y1,x2,y2: real): real; begin   d: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   a: =d(x1,y1,x2,y2);   b: =d(x2,y2,x3,y3);   c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. с процедурой: var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; procedure d(x1,y1,x2,y2: real; var r: real); begin   r: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   d(x1,y1,x2,y2,a);   d(x2,y2,x3,y3,b);   d(x1,y1,x3,y3,c);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end.