Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.