Необходимо решить задачу с кругов Эйлера

Var k, s, i: integer;beginreadln(k);s:=k mod 10;i:=0;while k<>0 do begin
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число

var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.

• процессор Socket-1155 Intel Core i3-2100, 3,1 ГГц — 4390 руб.;
• материнская плата Socket-1155 ASRock DDR3 mATX AC’97+LAN+ VGA — 1850 руб.;
• корпус компьютера с блоком питания мощностью 400 В — 2480 руб.;
• модули оперативной памяти объемом 8 Гбайт — 2010 руб.;
• жесткий диск объемом 500 Гбайт — 3100 руб.;
• видеокарта с объемом видеопамяти 2 Гбайта — 5880 руб.;
• мышь оптическая — 200 руб.;
• клавиатура — 180 руб.;
• монитор LCD, диагональ 20 дюймов — 5870 руб.;
• привод CD-RW — 830 руб.;
• модем — 940 руб.;
• звуковая карта и • сетевая карта 10/100/1000 Мбит/с не нужны так как в материнской плате они уже есть