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

Program cred;
const N=5;
var v1,v2,v3,v4,v5,Vcp:real;
begin
writeln('Введите скорость на участке 1 (в км/ч)');
readln(v1);
writeln('Введите скорость на участке 2 (в км/ч)');
readln(v2);
writeln('Введите скорость на участке 3 (в км/ч)');
readln(v3);
writeln('Введите скорость на участке 4 (в км/ч)');
readln(v4);
writeln('Введите скорость на участке 5 (в км/ч)');
readln(v5);
Vcp:=(v1+v2+v3+v4+v5)/N;
writeln('Средняя скорость автомобиля: ',Vcp,'км/ч');
end. 
Во вложении фото как работает программа