Pascal/Turbo Pascal - Un pequeño acertijo en pascal...

Hola a a todos. Tengo que resolver un pequeño acertijo a ver si a alguien se le ocurre:

Hacer un programa que ejecutando siempre el siguiente trozo de código,

x:=3;
y:=5;
writeln(x);

imprima 5 ( o cualquier valor que tenga la y ) por pantalla. Se puede añadir lo que sea por encima o por debajo, pero ese trozo de codigo debe ejecutarse siempre.

Saludos y muchas gracias!

Vale cualquier cosa?
Porque a mí solo se me ocurre esto:

Uses Crt;
Var x,y : Integer;

Begin

x:=3;
y:=5;
writeln(x);

ClrScr;
x:=y;
writeln(x);
ReadKey

End.

jaja, yo tambien lo tengo que resolver para mañana, a ver si me gano un 0.5 más.... pero por más vueltas que le doy, no doy hecho para cambiar las direcciones de memoria.....