{* Задача 563 *}

Unit ZADACH563;
Interface
Implementation
Begin
 writeln('Автомобиль проехал три участка пути разной длины с разными скоростями. Найти среднюю скорость автомобиля.');
End.

Program zadach563;

Uses zadach563.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  v1    : real;
  v2    : real;
  v3    : real;
  vsred : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Скорость на 1 участке v1=');
  read(v1);
  write('Скорость на 2 участке v2=');
  read(v2);
  write('Скорость на 3 участке v3=');
  read(v3);
  vsred := (v1 + v2 + v3) / 3;
  writeln('vsred=', vsred : 3:3);
  readkey; {* Ждем нажатия пользователя *}
End.