Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim myString, myString1, Pseudocode as string

        Dim total as integer

        Pseudocode = ""

        myString = console.ReadLine()

        myString1 = myString.ToLower()

        total = myString1.Length

        if myString1.Contains("console.readline()")

            Pseudocode = "INPUT "

            for i = 0 to myString1.Length

                if myString.Chars(i) <> " " then

                    Pseudocode = Pseudocode + myString.Chars(i)

                Else

                    Exit for

                End if

            Next i

        else if myString1.Contains("console.writeline") then

            Pseudocode = "OUTPUT "

            for z = 18 to(total - 2)

                if myString(z) = "&" then

                    Pseudocode = Pseudocode + ","

                Else

                    if myString1(z) = "(" then

                        Pseudocode = Pseudocode + "["

                    Else if myString1(z) = ")" then

                        Pseudocode = Pseudocode + "]"

                    Else

                        Pseudocode = Pseudocode + myString(z)

                    End if

                End if

            Next z

' ' ' '  ''  ' ''  ' ' ' ' '' ' '  ' ' ' ' ' ' ' ' '' ' ' ' '' ' ' '' ' '

        else if myString1.Contains("dim") then

            if myString1.Contains("string") then

                Pseudocode = "STRING: "

            Else if myString1.Contains("integer")

                Pseudocode = "INTEGER: "

            Else if myString1.Contains("char")

                Pseudocode = "CHAR: "

            Else if myString1.Contains("decimal")

                Pseudocode = "REAL: "

            Else if myString1.Contains("Boolean")

                Pseudocode = "Boolean: "

            End if

​

            for y = 1 To total - 1

                if myString1(y + 3) = " " And myString1(y + 4) = "a" And myString1(y + 5) = "s" And myString1(y + 6) = " " then

                    Exit for

                else

                    if myString1(y) = "(" then

                        Pseudocode = Pseudocode + "["

                    Else if myString1(y) = ")" then

                        Pseudocode = Pseudocode + "]"

                    Else 

                        Pseudocode = Pseudocode + myString(y + 3)

                    End if

                End if

            Next

                                ' ' ' ' ' ' ' ' ' ' ' '' ' ' '' ' ' ' ELSEIF' '' ' ' '' ' '  ' '' ' ' '' ' ' ' ' '' ' ' ' '' '

        Else if mystring1.Contains("else if") then

            Pseudocode = "ELSEIF "

                for a = 8 To total - 5

                    if myString(a) = "="

                        Pseudocode = Pseudocode + "<-"

                    else

                        Pseudocode = Pseudocode + myString(a)

                    end if

                Next a

                Pseudocode = Pseudocode + "THEN"

        Else if mystring1.Contains("do while") then

            Pseudocode = "WHILE "

            for a = 9 To total - 1

                if myString(a) = "="

                    Pseudocode = Pseudocode + "<-"

                else

                    Pseudocode = Pseudocode + myString(a)

                end if

            Next a

            Pseudocode = Pseudocode + " DO"

                                '''' ' ''  ''  '  '  '' ' ''ENDIF + Else ''  ' '  ' ''  '' ' ' '' ' ' ' '' ' '' ' ' '' ' ' ' ' ' '' 

        Else if myString1.Contains("else") then

            Pseudocode = myString.ToUpper()

                                ' ' '' ' ' '' ' '' ' ' ' '' ' '' ' ' ' '' 'IF ' '' ' ' '' ' ' ' '' ' ' '' '  '' ' ' ' '  ' '

        Else if myString1.Contains("end if")

            Pseudocode = "ENDIF"

        Else if myString1.Contains("loop")                          

            Pseudocode = "ENDWHILE"

        Else if myString1.Contains("do")

            Pseudocode = "REPEAT"

        Else if mystring1.Contains("if") then

            Pseudocode = "IF "

            for a = 3 To total - 5

                if myString(a) = "="

                    Pseudocode = Pseudocode + "<-"

                else

                    Pseudocode = Pseudocode + myString(a)

                end if

            Next a

                Pseudocode = Pseudocode + "THEN"

        Else if myString1.Contains("for") then

            Pseudocode = "FOR "

            for x = 4 To total - 1

                if myString(x) = "="

                    Pseudocode = Pseudocode + "<-"

                else if (myString(x) = "t") OR (mystring(x) = "o")

                    If myString(x-1) = " " OR myString(x+1) = " "

                        if mystring(x + 1) = "o" OR myString(x - 1) = "t" then

                            If myString(x + 2) = " " OR myString(x - 2) = " " then

                                Pseudocode = Pseudocode + myString(x).ToString().ToUpper()

                            End if

                        End if

                    End if

                else

                    Pseudocode = Pseudocode + myString(x)

                End if

            Next x

        Else if myString1.Contains("next")

            Pseudocode = "NEXT "

            for b = 5 To total - 1

                Pseudocode = Pseudocode + myString(b)           

            Next b

        Else if mystring1.Contains("loop until") then

            Pseudocode = "UNTIL "

            for a = 3 To total - 1

                if myString(a) = "="

                    Pseudocode = Pseudocode + "<-"

                else

                    Pseudocode = Pseudocode + myString(a)

                end if

            Next a

        Else if myString.Contains("=") then

            for b = 0 To total - 1

                if myString(b) = "="

                    Pseudocode = Pseudocode + "<-"

                else

                    Pseudocode = Pseudocode + myString(b)

                end if

            Next b

        End If

        console.WriteLine(Pseudocode)

    End Sub

End Module

​