Gyakorló feladat számsorozat előállítására: 3-mal osztható számok kiírása 100-ig program Gyakorlo1; uses crt; var n,a:integer; BEGIN n:= ; a:= ; repeat write(a,' '); a:=a+3; until ; END. Alternáló számsorozat kiírása 100-ig program Gyakorlo2; uses crt; var i,a,s,x,n:integer; BEGIN i:= 1; a:= 1; s:= ; x:= ; while (i<=n) do begin write(a,' '); x:=x+ ; a:= ; s:=s*(-1); i:=i+1; end; END. Számok faktoriálisának kiírása (10 db szám) program Gyakorlo3; uses crt; var i,a,n:integer; BEGIN i:= ; a:= ; n:= 10; while (i<=n) do begin write(a,' '); a:= ; i:=i+ ; end; END.