{
debug1 := 0;
debug2 := 0;
read x;
y := 1;
while (x > 0)
{
if (debug1) {
debug2 := 1;
}
if (debug2) {
write x;
}
x := x – 1;
y := y + 1;
}
write y;
}
{
debug1 := 0;
debug2 := 0;
read x;
y := 1;
while (x > 0)
{
if (debug1) {
debug2 := 1;
}
if (debug2) {
write x;
}
x := x – 1;
y := y + 1;
}
write y;
}