Очень нужна помощь

[alex77777]

Здравствуйт!

Помогите решить 2-е задачи на basic :
1) Дано 3 числа: a,b,c и надо вывести min,max и среднее число;

2) Нужно вывести дату после завтрешнего дня в пределах 1 года с
условиями И, ИЛИ

Заранее всех благодарю

[SSecurity]

Задача 1

Dim AA(3)
AA(1) = A
AA(2) = B
AA(3) = C
Min = AA(1)
Max = AA(1)
For I = 1 To 3
If AA(I)>Min Then Min=AA(I)
If AA(I)<Min Then Max=AA(I)
Next I
Print "Минимум =";Min
Print "Максимум =";Max
Print "Среднее ="; (a+b+c)/3

[SSecurity]

Уточнение к задачи 1.

Dim AA(3)
AA(1) = A
AA(2) = B
AA(3) = C
Min = AA(1)
Max = AA(1)
For I = 1 To 3
If AA(I)>Min Then Min=AA(I)
If AA(I)<Min Then Max=AA(I)
Next I
Print "Минимум =";Min
Print "Максимум =";Max
SRB = AA1
For i = 1 to 3
IF SRB<> Min and SRB <>Max then SRB = AA(i)
Next I
Print "Среднее ="; SRB