Переведите код с QBasic на Pascal, пж:

SUB pq(n AS LONG)
IF n THEN
m = INT(SQR(n))
PRINT m;
CALL pq(n - m ^ 2)
END IF
END SUB