print "1. summa chetnix elementov massiva"
print "2. summa kratnix trem elementov massiva"
print "vash vibor"
A$=input$(1)
If (A$="1") then
print "summa chetnix elementov massiva"
do
input "vvedite razmer massiva N"; N
If (N<=0) or (int(N)<>N) then print "net resheniy"
loop while (N<=0) or (int(N)<>N)
Dim (A)
for i=1 to N
print "Vvedite";i;"-i element massiva";
input A(i)
next i
summa=0
for i=1 to N
if A(i) mod 2=0 then
summa=summa+A(i)
end if
next i
for i=1 to N
print A(i);
next i
print "summa chetnix elementov massiva"; summa
Else If (A$="2") then
print "summa kratnix trem elementov massiva"
do
input "vvedite razmer massiva N"; N
If (N<=0) or (int(N)<>N) then print "net resheniy"
loop while (N<=0) or (int(N)<>N)
Dim (A)
for i=1 to N
print "Vvedite";i;"-i element massiva";
input A(i)
next i
summa=0
for i=1 to N
if A(i) mod 3=0 then
summa=summa+A(i)
end if
next i
for i=1 to N
print A(i);
next i
print "summa kratnix trem elementov massiva"; summa

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace CircleMoving
{
    public partial class Form1 : Form
    {
        const int m_Radius = 100;
        const int m_Addition = 4;
        const int m_SmallCircleRadius = m_Radius / 2;

        int m_StartPositionX;
        int m_StartPositionY;
        int m_SpiralX;
        int m_SpiralY;        

        bool m_Sign = true;

        List<Point> m_LastPoints;

        public Form1()
        {            
            InitializeComponent();

            m_StartPositionX = this.Width / 2 - m_Radius / 2;
            m_StartPositionY = this.Height / 2 - m_Radius / 2;
            m_SpiralX = 0;
            m_SpiralY = 0;
            m_LastPoints = new List<Point>();
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            m_StartPositionX++;
            m_StartPositionY++;

            if (m_Sign)
                m_SpiralX += m_Addition;
            else
                m_SpiralX -= m_Addition;            

            m_SpiralY = (int)Math.Sqrt(
                Math.Pow(m_SmallCircleRadius, 2) - Math.Pow(m_SpiralX, 2)
                );

            this.Invalidate();

            if (m_SpiralX + m_Addition >= m_SmallCircleRadius)            
                m_Sign = false;            

            if (m_SpiralX - m_Addition <= 0)
                m_Sign = true;            
        }        

        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            Graphics g = e.Graphics;
            Point m_LastPoint = Point.Empty;            
            foreach (Point m_Point in m_LastPoints)
            {
                if(m_LastPoint == Point.Empty)                
                    g.DrawEllipse(new Pen(Color.DarkSlateBlue), m_Point.X, m_Point.Y, 1, 1);
                else
                    g.DrawLine(new Pen(Color.DarkSlateBlue), m_LastPoint, m_Point);
                m_LastPoint = m_Point;
            }
            g.DrawEllipse(
                new Pen(Color.DarkRed),
                new Rectangle(
                m_StartPositionX + m_SpiralX - m_SmallCircleRadius,
                m_StartPositionY + m_SpiralY - m_SmallCircleRadius,
                m_Radius,
                m_Radius
                )
            );
            m_LastPoints.Add(new Point(
                m_StartPositionX + m_SpiralX - m_SmallCircleRadius + m_Radius / 2,
                m_StartPositionY + m_SpiralY - m_SmallCircleRadius + m_Radius / 2
                ));
            if ((m_LastPoints[m_LastPoints.Count - 1].X + m_Radius / 2 == this.Width)
                ||
                (m_LastPoints[m_LastPoints.Count - 1].Y + m_Radius / 2 == this.Height))
            {
                timer1.Stop();
                timer1.Enabled = false;
                timer1.Dispose();
                MessageBox.Show("Перемещение круга завершено");
            }
        }
    }
}