Написать программу для вычисления среднего арифметического w трех чисел y , x ,z должны вводиться с команды readln

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;

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