//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.