Кароче вот условие: "Коровы и быки". Программа выбирает с помощью датчика случайных чисел четырехзначное число с разными цифрами. Угадать это число. На каждом шаге играющий называет четырехзначное число, а программа сообщает, сколько цифр числа угадано ("быки") и сколько цифр угадано и стоит на нужном месте ("коровы"). Например, если программой задано число 1294, а играющий назвал 1423, он получит ответ: "1 корова, 3 быка". Думаю надо использовать такой метод) program igor; uses crt; const n=3; var a:array[1..n] of integer; b:array[1..n] of integer; i,g,z,h,j:integer; begin clrscr; randomize; for i:=1 to n do a[i]:=random(100); writeln('Введите 4 число'); for j:=1 to n do read(b[j]); begin h:=4; g:=0; for i:=1 to n do for j:=1 to n do if a[i]=b[j] to then do begin g:=g+1; h:=h-1; end; for i:=1 to n do for j:=1 to n do writeln('вывод',a[i],b[j], g, h ); end.