Dim a As Integer,b As Integer,c As Integer
If a > b then
max = a
else
max = b
End If
If c > max then
max = c
End If
Print max
Dim a As Integer,b As Integer,c As Integer
If a > b then
max = a
else
max = b
End If
If c > max then
max = c
End If
Print max