Извините, QBASICa у меня нет, но, переписать несложно, вот код на Visual Basic
Sub Main()
Dim X, Y As Double
X = Console.Read()
Y = Console.Read()
If (Y = 3 * X^2 - 7X + 6) Then
Console.WriteLine("Yes")
Else
Console.WriteLine("No")
End If
End Sub
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.