PROGRAM TST4;
VAR X, Y:REAL;
BEGIN X:=2;
  Y:=SQRT(-1)
END.