10 lines
224 B
Text
10 lines
224 B
Text
|
code CrLf=9, IntOut=11, Text=12;
|
||
|
|
int N;
|
||
|
|
[for N:= 1 to 100 do
|
||
|
|
[if rem(N/3)=0 then Text(0,"Fizz");
|
||
|
|
if rem(N/5)=0 then Text(0,"Buzz")
|
||
|
|
else if rem(N/3)#0 then IntOut(0,N);
|
||
|
|
CrLf(0);
|
||
|
|
];
|
||
|
|
]
|