/media/sda-magnetic/david/Extern-Magnetic-2022-06-29/Extern01/Dokumente-11-2021-07-05/informatik-math/informatik2/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;