С ЗАДАНИЯМИ.
ЗАРАНИЕЕ

Описание:
использовать Чертежник
алг
нач
сместиться на вектор(4,4)
опустить перо
сместиться на вектор(4,0)
сместиться на вектор(0,4)
сместиться на вектор(-4,0)
сместиться на вектор(0,-4)
сместиться на вектор(2,0)
сместиться на вектор(2,2)
сместиться на вектор(-2,2)
сместиться на вектор(-2,-2)
сместиться на вектор(2,-2)
сместиться на вектор(-1,1)
сместиться на вектор(2,0)
сместиться на вектор(0,2)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
сместиться на вектор(1,0)
сместиться на вектор(1,1)
сместиться на вектор(-1,1)
сместиться на вектор(-1,-1)
сместиться на вектор(1,-1)
кон
Рисунок увидите сами при выполнении программы

Visual Basic? Их много, вот, например, на VB.NET

    Sub Main()
        Dim N As UInteger
        Dim Num As Integer
        Dim A As String = String.Empty
        N = Integer.Parse(Console.ReadLine())
        For i As UInteger = 1 To N
            Console.Write(i.ToString() + " ")
            Num = Integer.Parse(Console.ReadLine())
            If Num = 0 Then
                A += i.ToString()
            End If
        Next
        Console.WriteLine()
        Console.WriteLine()
        Console.WriteLine(A.Length)
        Console.WriteLine()
        For Each i As Char In A
            Console.WriteLine(i)
        Next
        Console.ReadKey()
    End Sub