Даны числа x,y и z. составьте программу, которая возводит в квадрат те из них, которые не отрицательные

Var
  x, y, z : real;
begin
  read (x, y, z);
  if (x > 0) then x := sqr (x);
  if (y > 0) then y := sqr (y);
  if (z > 0) then z := sqr (z);
  write (x, ' ', y, ' ', z);
end.