mirror of
https://github.com/sharkdp/bat.git
synced 2024-09-06 11:21:30 +02:00
43 lines
3.5 KiB
ObjectPascal
Vendored
43 lines
3.5 KiB
ObjectPascal
Vendored
[38;2;249;38;114mprogram[0m[38;2;248;248;242m Hello;[0m
|
||
[38;2;249;38;114muses[0m[38;2;248;248;242m crt;[0m
|
||
|
||
[38;2;249;38;114mtype[0m[38;2;248;248;242m str = string[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m];[0m
|
||
[38;2;248;248;242m arr = [0m[38;2;249;38;114marray[0m[38;2;248;248;242m[[0m[38;2;190;132;255m1[0m[38;2;248;248;242m..[0m[38;2;190;132;255m20[0m[38;2;248;248;242m, [0m[38;2;190;132;255m1[0m[38;2;248;248;242m..[0m[38;2;190;132;255m60[0m[38;2;248;248;242m] [0m[38;2;249;38;114mof[0m[38;2;248;248;242m char;[0m
|
||
|
||
[38;2;249;38;114mvar[0m[38;2;248;248;242m x, y:integer;[0m
|
||
[38;2;248;248;242m carr:arr;[0m
|
||
[38;2;248;248;242m c:char;[0m
|
||
|
||
[3;38;2;102;217;239mProcedure[0m[38;2;248;248;242m [0m[38;2;166;226;46mstart[0m[38;2;248;248;242m;[0m
|
||
[38;2;117;113;94m{[0m[38;2;117;113;94mcomment here[0m[38;2;117;113;94m}[0m
|
||
[38;2;249;38;114mbegin[0m[38;2;248;248;242m write ([0m[38;2;230;219;116m'[0m[38;2;230;219;116m Press enter to begin. [0m[38;2;230;219;116m'[0m[38;2;248;248;242m);[0m
|
||
[38;2;248;248;242mreadln;[0m
|
||
[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
|
||
|
||
[3;38;2;102;217;239mFunction[0m[38;2;248;248;242m [0m[38;2;166;226;46mValid[0m[38;2;248;248;242m ([0m[38;2;249;38;114mvar[0m[38;2;248;248;242m choice:char): boolean;[0m
|
||
[38;2;249;38;114mbegin[0m[38;2;248;248;242m [0m
|
||
[38;2;248;248;242m valid:= false;[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mcase[0m[38;2;248;248;242m choice [0m[38;2;249;38;114mof[0m[38;2;248;248;242m [0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m1[0m[38;2;230;219;116m'[0m[38;2;248;248;242m:valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m2[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m3[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m4[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m5[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;230;219;116m'[0m[38;2;230;219;116m6[0m[38;2;230;219;116m'[0m[38;2;248;248;242m: valid:= true;[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
|
||
[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
|
||
|
||
[38;2;249;38;114mbegin[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mfor[0m[38;2;248;248;242m y:=[0m[38;2;190;132;255m1[0m[38;2;248;248;242m [0m[38;2;249;38;114mto[0m[38;2;248;248;242m [0m[38;2;190;132;255m3[0m[38;2;248;248;242m [0m[38;2;249;38;114mdo[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mbegin[0m
|
||
[38;2;248;248;242m writeln (y);[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mend[0m[38;2;248;248;242m;[0m
|
||
[38;2;248;248;242m [0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114mrepeat[0m
|
||
[38;2;248;248;242m writeln(y);[0m
|
||
[38;2;248;248;242m y := y + [0m[38;2;190;132;255m1[0m[38;2;248;248;242m;[0m
|
||
[38;2;248;248;242m [0m[38;2;249;38;114muntil[0m[38;2;248;248;242m y > [0m[38;2;190;132;255m5[0m[38;2;248;248;242m;[0m
|
||
[38;2;248;248;242m writeln ([0m[38;2;230;219;116m'[0m[38;2;230;219;116mHello World[0m[38;2;230;219;116m'[0m[38;2;248;248;242m);[0m
|
||
[38;2;249;38;114mend[0m[38;2;248;248;242m.[0m
|
||
|