Program P75;
 { Eroare }
label 1;
var i : integer;
begin
 i:=1;
 while i<=20 do
    begin
        writeln(i);
      1:i:=i+1;
    end;
 goto 1;
end.