/media/sda-magnetic/david/Extern-Magnetic-2022-06-29/Extern01/Dokumente-2021-05-8/disk10-ab-2020-01-10/02-debian-pc2-work/informatik/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;