[Gm2] Problem with ReadCard

[Martin Kalbfuß]

Hi,

MODULE test;

VAR n : CARDINAL; 

BEGIN

ReadCard(n);
WriteCard(n, 1);
WriteLn();

END test.

gives for example

1
49

or

2
50

where the first is the repeated, input. What's wrong here?
Many thanks,

Martin