setscreen ("graphics:800;500")

var font1 : int := Font.New ("candara:12:bold")
var font2 : int := Font.New ("candara:12")
var font3 : int := Font.New ("times:12:italic")
var name : string
var mark1 : int
var mark2 : int
var mark3 : int
var mark4 : int
var text1 : string := "It's that time again, students. It's time for grades!! If you'd like to know your average, please follow the steps below."

put "\n"
put "\n"
put "\n"
procedure textDelayFont (text : string, x, y, font, clr, timeDelay : int)
    var xPos := x
    for i : 1 .. length (text)
        Font.Draw (text (i), xPos, y, font, clr)
        xPos += Font.Width (text (i), font)
        delay (timeDelay)
    end for
end textDelayFont
textDelayFont (text1, 0, 450, font2, red, 50)
Font.Draw ("Please type your full name: ", 0, 425, font1, black)
get name
put "\n"
put "\n"
put "\n"
Font.Draw ("Please put your marks in percent(4 marks): ", 0, 370, font1, black)
get mark1
get mark2
get mark3
get mark4

put "\n"
var average : int := (mark1 + mark2 + mark3 + mark4) div 4

Font.Draw ("Your average is: ", 0, 290, font1, blue)

Font.Draw (intstr (average), 150, 290, font1, red)