Создание простого DOS приложения

mes;
end;
// основная программа
var
f:real; // вес в фунтах
w:real; // вес в граммах
k:integer; // кол-во килограммов
g:integer; // кол-во граммов
// w f0,4095 k1000 g
begin
writeln(Rus(Фунты-килограммы));
writeln(Rus(Введите вес в фунтах и нажмите ));
write(- );
readln(f);
w : f 409. 5; // один фунт -- это 409,5 гр.
if w 1000 then
begin
k:Trunc(w/1000);
g:Round(w - k1000);
end
else
begin
k:0;
g:Round(w) ;
end;
write(f:4:2, Rus( ф. -это ));
if k 1 then write(k, Rus( кг. ));
writeln(g, Rus( rp. );
write(Rus(Для завершения нажмите ));
readln;
end.
Начинается текст программы строкой $APPTYPE CONSOLE, которая, хотя и похожа на комментарий, таковым не является, т. к. сразу за открывающей скобкой следует знак денежной единицы. Эта директива предназначена для компилятора. Следуя ее указаниям, компилятор генерирует исполняемую программу как консольное приложение. Компиляция консольного приложения выполняется обычным образом, т. е. выбором из меню Project команды Compile. После успешной компиляции программа может быть запущена выбором из меню Run команды Run. При запуске консольного приложения на экране появляется стандартное окно DOS-программы. На рис. приведен вид DOS-окна, в котором работает консольное приложение, созданное в Delphi. Процесс сохранения проекта консольного приложения стандартный. В результате выбора из меню File команды Save на экране появляется диалоговое окно SaveProject, в котором нужно ввести имя проекта.
Задание 2:
Войдите в директорию TASM, в ней создайте файл с именем Lab21. asm. Введите текст следующей программы (без комментариев).
Пример оформления программы в виде com-файла