Найти сумму длин медиан треугольника - VB

Формулировка задачи:

1.Треугольник задан координатами вершин на плоскости A(X1,Y1), B(X2,Y2), C(X3,Y3).Найти сумму длин медиан треугольника ABC. 2.Написать программу, которая по номеру месяца выдает название следующего за ним месяца. 3.Найти все натуральные числаБ которые не превосходят заданного N, десятичная запись которых есть строго возрастающая или строго убывающая последовательность чисел. 4.Расположить элементы одномерного массива, заполненого случайным образом в интервале [-120,99/120,99], в следующем порядке:положительные, равные нулю, отрицательные. VB 6

Решение задачи: «Найти сумму длин медиан треугольника»

textual
                            Листинг программы 
                        

                            uses crt;
function Plan(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan:=((p+r<a)and(q<b)and(s<b)) or ((q+s<b)and(q<a)and(r<a));
end;
function Plan2(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan2:=Plan(a,b,p,q,r,s) or Plan(a,b,p,q,s,r)
or Plan(a,b,q,p,r,s) or Plan(a,b,q,p,s,r);
end;
var a,b,p,q,r,s:integer;
begin
clrscr;
writeln('Введите размеры участка a,b:');
readln(a,b);
writeln('Введите размеры первого дома p,q:');
readln(p,q);
writeln('Введите размеры второго дома r,s:');
readln(r,s);
if Plan2(a,b,p,q,r,s)then write('Можно разместить')
else write('Разместить нельзя');
readln
end.
                        