$i := 0; $j := 0; while $i < 5 do begin $i := $i+1; $j:=$j+2; $a[3/3+$i] := $j end; $d[1][1+1+1]:=$e+$ab+$c; $a:=0; if $a == 3 then begin $k := 2 end else begin $k := 67 end; echo $k+1; echo $a[0]; echo $a[1]; echo $a[2]; echo $a[3]; echo $a[4]; echo $i; echo $j; $k := 1; while $k < 3 do begin plot sin($x*$k); $k := $k+1; end; $i := 0; while $i < 10 do begin $b [$i] := sin $i; $i := $i+1 end; $i := 0; while $i < 10 do begin echo $b [$i]; $i := $i+1 end;
yun7x1.zip
yun7x1.tar.gz