Обязательно с выводами.

Program qfdw;
uses crt;
Type
   vershina=Record
       Tochka:string;
       X,Y:real;
     end;
   ps=File of vershina;
Var f:ps;
    z,a,b,c:vershina;
  i:integer;
Begin
  assign(f,'1.dat');
  rewrite(f);
  writeln('Введите вершины треугольника и их координаты: ');
  for i:=1 to 3 do
    begin
      writeln(i,'-я вершина');
      write('буква: ');read(z.tochka);
      write('X=');read(z.x);
      write('Y=');read(z.y);
      write(f,z);
    end;
  Close(f);
  assign(f,'1.dat');
  reset(f);
  read(f,a);  
  read(f,b);  
  read(f,c);  
  close(f);
  writeln('Cтороны треугольника:');
  writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
  writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
  writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.

Правильность не гарантирую, потому что проверить в данный момент код негде.

Sub название

Dim A() As Integer
Dim b() As Integer
Dim i, j As Integer

'Задаем размерность массива
Console.WriteLine ("Введите количество строк")
n = Console.ReadLine                                             
Console.WriteLine ("Введите количество столбцов")
m = Console.ReadLine

ReDim A(n, m) As Integer
ReDim b(n) As Integer

'Цикл ввода данных
For i = 1 To n
For j = 1 To m
Console.WriteLine ("Введите число")
A(i, j) = Console.ReadLine
Next j
Next i

'Все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значение
For i = 1 To n
b(i) = 1
Next i

'Цикл вычисления каждого элемента массива b
For i = 1 To n
For j = 1 To m
b(i) = b(i) * A(i, j)
Next j
Next i

'Вывод результата на экран
For i = 1 To n
Console.Write (b(i))
Next i
End Sub