Гоша- учится в 5 классе ,кружок-математ.
Витя-6, фотокружок
Алеша-7-авиамодели.
Боря-8,шахмат.
Думаю,что так, но не уверена,напишите потом верно или нет
Var
n,k,d,dmin:integer;
begin
Write('n='); Readln(n);
dmin:=10;
while n>0 do begin
d:=n mod 10;
if d<dmin then begin dmin:=d; k:=1 end
else if d=dmin then k:=k+1;
n:=n div 10
end;
Writeln('Минимальная цифра ',dmin,' встречается ',k,' раз(а)');
Readln
end.
второй проиграет в любом случае так как 36 долек соответственно четное количество линий между долек а так как порядок стартует раньше то и первый закончит последний