Var ,integer,real, begin , if then else , while do begin , команды присваивания
Если правильно понимаю что тут написано
y:=(5 * x * x - sqrt(x)) / x;
Var a, b, c, d, e: real;
begin
write('Введите 5 чисел через пробел: '); readln(a, b, c, d, e);
writeln('Среднее арифметическое = ', (a+b+c+d+e)/5);
end.