Просто решить систему уравнений (**,в) Pascal - см. изображение

Question

Просто решить систему уравнений (на,в) Pascal - см. изображение

---

Answer 1

Это не система уравнений!!! Это функция.
Программа:
var x,y:real;
begin
write('x = ');
readln(x);
if x>2 then y:=x*x else y:=(x-8)*(x-8);
writeln('y = ',y);
end.

Пример:
x = -1
y = 81