Написать программку для вычисления среднего арифметического W  трех чисел  Y ,

Var
w,y,x,z:real
begin
Writeln('Vvedite chislo 1:');
Readln(x);
Writeln('Vvedite chislo 2:');
Readln(y);
Writeln('Vvedite chislo 3:');
Readln(z);
w:= (x+y+z)/3;
Writeln('W = ',w)
Readlnl;
end;

Могу быть ошибки если что. и Это не сходу готовая программка это только середина, которая исполняет расчеты..