fork(1) download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main() 
  5. 		Dim n As Integer
  6. 		n = Console.ReadLine
  7. 		Dim m As Integer
  8. 		m = Console.ReadLine
  9. 		Do While n <> 0
  10. 			Dim x as integer = Console.ReadLine
  11. 			if x > 3
  12. 				m=m-1
  13. 			end if
  14. 			n=n-1
  15. 		Loop
  16. 		if m > 0 then
  17. 			System.Console.WriteLine("No")
  18. 		else
  19. 			System.Console.WriteLine("Yes")
  20. 		end if
  21. 	End Sub
  22. End Class
Success #stdin #stdout 0.04s 24264KB
comments (?)
stdin
copy 
3
2
5
5
1
stdout
copy 
Yes
https://ideone.com/Kmvyzn
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!