Автомобиль на каждом из пяти одинаковых по длине участках дороги шел с известной средней скоростью. составьте алгоритм и программу для определения средней скорости на всем пути.

program avto; var      v1, v2, v3, v4, v5: real;       vsred: real; begin      write('введите скорости на 5 участках ');       readln(v1, v2, v3, v4, v5);             vsred : = 5 / (1/v1 + 1/v2 + 1/v3 + 1/v4 + 1/v5);             writeln('средняя скорость = ', vsred);             readln; end.

Var a,b: real; begin readln(a,b);           if a> b then begin writeln('квадрат числа',a,'=',a*a);                                                     writeln('корень числа ',b,'=',sqrt(b));                                       end;           if b> a   then begin writeln('квадрат числа  ',b,'=',b*b);                                                     writeln('корень числа  ',a,'=',sqrt(a));                                       end;                     end.

Var     n,  n2,  sum,  pr: integer; begin       read(n);     sum : = (n div 10)+(n  mod  10);     pr : =     (n div 10)*(n mod 10);       n2 : =  (n mod 10)*10  +  (n  div  10);       writeln('сумма  цифр  =  ',  sum);       writeln('прозведение цифр = ', pr);         writeln('полученое  число = ', n2);   end.