Даны два числа. Определить цифры, входящие в запись как первого так и второго числа.

var

a, b, c: longint;

d: byte;

begin

readln(a,b);

while a > 0 do begin

d := a mod 10;

a := a div 10;

c := b;

while c > 0 do begin

if c mod 10 = d then begin

write(d,' ');

break;

end;

c := c div 10;

end;

end;

writeln;

end.

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe