это на Visual Basic.Net
Module Module1
Sub Main()
Dim N As Integer
Dim M As Integer
Console.WriteLine(«Ведите N»)
N = Console.ReadLine()
Console.WriteLine(«Ведите M»)
M = Console.ReadLine()
For X = 1 To N
If X * X = M Then
Console.WriteLine(«X = » + X.ToString())
End If
Next
Console.WriteLine(«Нажмите Enter для окончания»)
Console.ReadLine()
End Sub
End Module