с Вычислительной Техникой!!
Вариант 2

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.

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

запишу на обычном языке, паскаль не помню уже.

а - первое число. б - второе число.

если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')

если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')

точно не помню как выглядит это в паскале, но что-то типо такого

if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');

if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');