answer : INTEGER;
answer := 1;
(Although I think your tutor might be looking for a bit more than that. )
On a more serious note, I don't think there's any way to do it without using either iteration (while / for) or recursion (procedures with parameters). Let me know if you do find a solution.