Написать программу для выполнения задачи y=5-x в степени 2 /2

Question

Написать программу для выполнения задачи y=5-x в степени 2 /2

Answer 1

Var
y,x: integer;
begin
read(x);
y:=(5-x)^(2/2);
write(y);
end.