program zad2;
var //описание переменных
x:integer; //целое число
y:real; //действительное число
begin
Write('X = ');Readln(X); //запрашиваем у пользователя ввод Х и читаем его с клавиатуры
case (X) of//в зависимости от Х
1: y:=x*x*x*x*x+x; //если х=1, то присваиваем у х в 4-й степени плюс х
2: y:=1/x;//если х=2, то у присваиваем 1/х
3: y:=1/x*x;//здесь вообще-то ошибка, 1/х*х это 1. Наверно надо 1/(х*х)... Кто писал вам программы?
else y:=sqrt(abs(x*x*x*x*x+x));//если х не равен 1, 2, 3 то присваиваем у корень из модуля (х в 4-й плюс х)
end;
Writeln(Y:5:3);//печатаем у с точностью до 3 знаков после запятой
readln;
end.