с решением задачи в програме PascalABC!!
найдите длину окружности p заданого радиуса r (P=2(Число пи))R))

Если шестеренка с буквами двигается против часовой, а стрелка стоит на месте то буквы будут перечисляться по порядку, от А до Я.
Так как главная шестеренка вращает остальные, то вторая будет двигаться по часовой, это значит что начиная с нуля цифры на второй шестеренке будут уменьшаться, 0, 9, 8...1 и по кругу.
Далее третья шестеренка будет двигаться против часовой значит цифры будут идти по нарастающей, от 0 до 6. Составим таблицу
Таблица в картинках
О Л И М П И А Д А = 51 85 12 76 42 12 00 64 00

var a,b,c:integer;

begin

write('Введите результаты 3-х экзаменов: ');

readln (a,b,c);

if a+b+c < 13 then writeln ('Сожалеем, вы не приняты...')

else writeln('Поздравляем, вы приняты!')

end.

const n=3;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

write('Введите результат ',j,' экзамена ',i,' ученика ');

readln(a[i,j])

end

end;

writeln;

for i:=1 to n do

begin

s:=0;

for j:=1 to n do s:= s+a[i,j];

if s < 13 then writeln ('Сожалеем, ученик ',i,' вы не приняты...')

else writeln('Поздравляем, ученик ',i,' вы приняты!')

end

end.