Microsoft Small Basic

Program Listing: VVJ904

List Program

TextWindow.Write("Scrieţi ceva: ")
ceva=TextWindow.Read()
ceva=Text.ConvertToLowerCase(ceva)

If (Text.GetIndexOf(ceva,"a")<>0) Then
TextWindow.WriteLine("Apare litera 'a'.")
Else
TextWindow.WriteLine("Nu apare litera 'a'.")
EndIf
If (Text.GetIndexOf(ceva,"er")<>0) Then
TextWindow.WriteLine("Apare secvenţa 'er'.")
Else
TextWindow.WriteLine("Nu apare secvenţa 'er'.")
EndIf