Сделать программу в паскале x в квадрате + y в квадрате - z в кубе

Var
  x,y,z:real;
begin
  Write('x,y,z= '); Read(x,y,z);
  Writeln('Результат: ',x*x+y*y-z*z*z)
end.

Тестовое решение
x,y,z= 3.18 -1.8 2
Результат: 5.3524