var a, b, c, d, e : nat := 0
var choose, times : int
var angle : array 1 .. 5 of nat

put "how many times"

get times

for x : 1 .. times
    randint (choose, 1, 5)
    if choose = 1 then
        a += 1
    elsif choose = 2 then
        b += 1
    elsif choose = 3 then
        c += 1
    elsif choose = 4 then
        d += 1
    elsif choose = 5 then
        e += 1
    end if
end for

angle (1) := (360 / times) * a % these lines glitch
angle (2) := (360 / times) * b + angle (1)
angle (3) := (360 / times) * c + angle (2)
angle (4) := (360 / times) * d + angle (3)
angle (5) := (360 / times) * e + angle (4) %till here

put "a: ", a
put "b: ", b
put "c: ", c
put "d: ", d
put "e: ", e

drawfillarc (maxx div 2, maxy div 2, 100, 100, angle (1), angle (2), 1)
drawfillarc (maxx div 2, maxy div 2, 100, 100, angle (2), angle (3), 2)
drawfillarc (maxx div 2, maxy div 2, 100, 100, angle (3), angle (4), 3)
drawfillarc (maxx div 2, maxy div 2, 100, 100, angle (4), angle (5), 4)
drawfillarc (maxx div 2, maxy div 2, 100, 100, angle (5), 360, 5)