void main(void)

Вы определили встроенное утверждение сборщика, которое - не правильно. 

procedure AssemblerExample;
  asm
    mov al, $0f0 *  16 
  end;

begin
end.

Встроенный сборщик не способный хранить результат $f0 *  16  в 'al' просто не установился. 

program Solve;
  procedure AssemblerExample;
  asm
    mov al, $0f *  16 
  end;

begin
end.

Убедитесь, что тип обоих операндов совместимый.

void main(void)

Вектор АВ имеет координаты:   - 3 . 00 ,      6 . 00 
Расстояние от точки А(          5 . 00 ,      3 . 00 ) 
до дочки В(                     2 . 00 ,      9 . 00 )
равна длине вектора АВ и равна  6 . 71 

Вектор АВ имеет координаты:   - 3 . 00 ,      6 . 00 

Расстояние от точки А(    5 . 00 ,    3 . 00 ) до дочки В(    2 . 00 ,    9 . 00 )
равна длине вектора АВ и равна      6 . 71 

Лабораторная работа №  2 

Тема: Алгоритмы с разветвлениями. Условный оператор.
Задание: Написать программу для решения поставленной задачи (см. варианты заданий). Исходные данные и результаты вывести в табличной форме.
Отчет: Правила оформления отчета прежние.

Порядок выполнения работы:

После ввода исходных данных выполнить очистку экрана и вывести результаты следующим образом. В верхней части экрана должны располагаться строки:

Лабораторная работа №  2 
Тема: “Условный оператор”
\ Выполнил:  фамилия имя \

С помощью спецсимвола табуляции первые две строки должны быть размещены по центру экрана, а третья — чуть правее. Далее должны следовать четыре пустые строки и потом — исходные данные и результаты работы программы (в табличной форме).
Варианты заданий: 

 8 .	Дано действительное число а. Вычислить f(a), если 
             0  при x<= 0 
f(x)=    x*x-x при  0 <x<= 1 
            x*x-sin(x*x) в остальных случаях

#include <iostream.h>
#include <conio.h>
#include <math.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused
double main(){
   double a, x, f;
   cout<<"Введите действительное число а:"<<endl;
   cin>>a;
   a=x;
   clrscr();
   cout<<endl<<"\t\t\t\t%s\r\n",Rus("Лабораторная работа № 1")<<endl;
   cout<<"\t\t\t\t%s\r\n",Rus("Тема: \"Условный оператор\" " )<<endl;
   cout<<"\t\t\t\t%s\r\n\n\n\n",Rus("\\Выполнил: Чашенков Сергей\\")<<endl;
   if(x<= 0 ) f= 0 ; cout<<"\n\n%s %6.2f, %6.2f\n",Rus("При х=<<x<<, f(x)=0")<<endl;
   if(x> 0 &&x<= 1 ) f=x*x-x; cout<<"\n\n%s %6.2f, %6.2f\n",Rus("При х=<<x<<, f(x)=x*x-x=<<f<<")<<endl
   else f=x*x-sin(x*x), cout<<"\n\n%s %6.2f, %6.2f\n",Rus("При х=<<x<<, f(x)=x*x-sin(x*x)<<f<<")<<endl;
   getch();
}

 cout<<endl<<"\t\t\t\t%s\r\n",Rus("Лабораторная работа № 1")<<endl;

Вы попытались использовать стандартную процедуру Finalize в типе Pascal, которая не требует никакой финализации. 

программная Выдача;

 program Produce;

  var
    ch : Char;

begin
  Finalize(ch);
end.

В этом примере, Символу типа Pascal не нужно никакой финализации. 

Обычное решение этой проблемы должно удалять обиженное использование Finalize.

#include <iostream.h>
#include <iomanip.h>
int main(){
   const int strok= 10 , stolb= 10 ;
   int a[strok][stolb];
   int i, j, str, stb;
   cout<<"Введите количество строк матрицы:"<<endl;
   cin>>str;
   cout<<"Введите количество столбцов матрицы:"<<endl;
   cin>>stb;
   cout<<"Введите элементы матрицы:"<<endl;
   for (i= 0 ; i<str; i++)
     for (j= 0 ; j<stb; j++)
       cin>>a[i][j]

   for (i= 0 ; i<str; i++){
     for j= 0 ; j<stb; j++)
     cout<<setw( 4 )<<a[i][j]<<" ";
     cout<<endl;
   }

   int elem;
   for (i= 0 ; i<str; i++){
     elem= 1 ;
     for j= 0 ; j<stb; j++){
       if (a[i][j]=a[i][j]) elem++;
       if (elem= 2 ) cout<<"В данной матрице элемент "<<a[i][j]>>" встречается два раза."<<endl;
       if (elem> 2 ) cout<<"В данной матрице элемент "<<a[i][j]>>" встречается больше двух раз."<<endl;
       if (elem= 1 ) cout<<"В данной матрице одинаковые элементы отсутсвуют."<<endl;
     }
   }
   return  0 ;
}

   for (i= 0 ; i<str; i++){
     for j= 0 ; j<stb; j++)
     cout<<setw( 4 )<<a[i][j]<<" ";
     cout<<endl;
   }