мне с решение данной задачи

Program cgt;
var x1,y1,x2,a,y2,b,c,x3,y3:real;
procedure IOI(x1,y1,x2,y2:real;var a:real);
begin
a:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
begin
read(x1,x2,y1,y2,x3,y3);
IOI(x1,y1,x2,y2,a);
IOI(x1,y1,x3,y3,b);
IOI(x3,y3,x2,y2,c);
if(a>=b)and(a>=c)then writeln('первая и вторая точка ',a) else
if(b>=a)and(b>=c)then writeln('первая и третая точка ',b) else
if(c>=b)and(c>=a)then writeln('третая и вторая точка ',c);
end.
2)
program cgt;
var z,x,y:real;function IOI(x:real):real;
begin
if(x=0)then IOI:=0;
if(x<0)then IOI:=-1;
if(x>0)then IOI:=1;
end;
begin
read(x,y);
z:=(IOI(x)+IOI(Y))*IOI(x+y);
writeln(z);
end.

Оператор в Visual Basic — это полная инструкция. В инструкциях содержатся ключевые слова, операторы, переменные, константы и выражения. Каждая инструкция принадлежит к одной из следующих двух категорий:
Операторы объявления, которые объявляют переменную, константу или процедуру, и могут также указывать тип данных.
Выполняемые операторы, которые инициируют действия. Эти операторы могут вызывать метод или функцию, а также выполнять цикл или ветвь, состоящие из блоков кода. Исполняемые операторы содержат Операторы присваивания, которые присваивают значение или выражение переменной или константе.
В этом разделе описана каждая категория. Также в этом разделе описано, как поместить несколько операторов в одной строке и как продолжить оператор на несколько строк.
Операторы объявления используются для именования и определения процедур, переменных, свойств, массивов и констант. При объявлении элемента программирования можно также определить его тип данных, уровень доступа и область действия. Дополнительные сведения см. в разделе Характеристики объявленных элементов (Visual Basic).
Первое объявление — это оператор Sub. Он совместно с соответствующим ему оператором End Sub объявляет процедуру с именем applyFormat. Он также указывает, что applyFormat является Public, что означает, что любой код, который к нему обращается, может его вызвать. 
Второе объявление — это оператор Const, который объявляет константу limit, указывая тип данных Integer и значение 33. 
Третье объявление — это оператор Dim, который объявляет переменную thisWidget. Тип данных является определенным объектом, а именно объектом, созданным из класса Widget. Можно объявить переменную любого простейшего типа данных или типа объекта, который предоставляется в приложении.