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

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