/media/sda-magnetic/david/Dok-15-2023-11-27/fernuni-hagen/cs-i-ii/old-cs-2-03/4yun7x-2021-03-04/code3.txt

    VAR $i;

    $i := 4;

    print $i;
    print $i;


    WHILE $i < 10 DO
    BEGIN
        print $i;
        $i := $i + 1;
    END;