Ответ: Лучше пользуйтесь не TURBO.EXE, а BP.EXE - он (и создаваемые с его помощью программы) лучше работают под Windows
Минимально необходимый, но вполне достаточный (уже и не припомню, что бывало нужно кроме этого) можно взять по адресу
http://borlpasc.narod.ru/Boris/bp.rar

Ответ: По первой задаче вопрос: часто в таких задачах требуется вводить НУ ОЧЕНЬ многозначное. У Вас есть ограничения?
И еще: делать на два как: как сумму представить, произведение ...?
По второй: насколько большое может быть "и т.д."?
Задачи простые

Ответ: Привет - письмом послал вариант консольного приложения
Алгоритм прост: создаем массив целых чисел. Поток перебираем все символы и увеличиваем на 1 элементы массива с номером, равным коду символа
А делее просто: выводим только те, у которых 1
Надо бы еще проверить: может ни одного такого символа нет. То есть завести счетчик выведенных символов

Ответ: Нужно написать "ему" в какой папке лежит этот модуль.
Для этого нужно записать путь к модулям в
Options -> Unit directories -> ...
У меня D:BPUNITS;
Через точку с запятой указываются все папки, где нужно искать модули, если их нет в данной (рабочей) папке
-
И еще, под Windows лучше работает BP.EXE, а не TURBO.EXE. С последним и программами, созданными с его помощью, бывают проблемы

Ответ: Вот как можно это сделать (обратите внимание, что здесь один апостроф заменяется на два)
-----------
const
SrcFileName: String = ''denis01.pas'';
DstFileName01: String = ''den01a.txt'';
DstFileName02: String = ''den01b.txt'';
space: char = '' '';
VAR
K, code: Integer;
S: String;
f_in, f_out01: Text;
f_out02: File of char;
BEGIN
Assign(f_in, srcFileName);
{$I-}Reset(f_in); {$I+}
if IOResult <> 0 then begin
WriteLn(''Не могу открыть исходный файл '', srcFileName);
Halt(1);
end;
Write(''Введите значение K: '');
repeat
ReadLn(K);
code :=IOResult;
if (code <> 0) or (K <= 0) then begin
WriteLn(''Ошибка ввода. Попробуйте еще раз'');
code:=1;
end;
until code = 0;
Assign(f_out01, dstFileName01); Rewrite(f_out01);
Assign(f_out02, dstFileName02); Rewrite(f_out02);
while NOT EOF(f_in) do begin
ReadLn(f_in, S);
WriteLn(f_out01, COPY(S, 1, K));
if K > Length(S) then
Write(f_out02, space)
else Write(f_out02, S[K]);
end;
Flush(f_out01); Close(f_out01);
Close(f_out02);
END.

Ответ: Спасибо за отзыв

Ответ: Вот как это делается
---
CONST
M = 20;
var
a: Array [1..M] of Integer;
i, N: Integer;
BEGIN
{заполняем случайными числами от 0 до 1. То есть значение параметра-1}
for i:=1 to M do a[i] := random(2);
N:=0;
{Перебираем числа и, если ноль, то увеличиваем счетчик N на единицу}
for i:=1 to M do if a[i] = 0 then N:=N+1;
{Показываем результат и саму последовательность}
WriteLn(N,'' нулей'');
for i:=1 to M do write(a[i]:5); WriteLn;
END.

Ответ: Во-первых, тип чисел неверный - нужно, по крайней мере, Real.
Далее, об этом есть во всех учебниках, надо проверять, не отрицательное ли число под корнем, да и случай двух корней не предусмотрен. Исправить можно так:
----
var
a, b, c, determ: Real;
BEGIN
WriteLn(''Hello, World!'');
Write(''Введите два вещественных числа: '');
ReadLn(a, b);
WriteLn(''Их сумма: '', a + b:10:4);
WriteLn(''Введите коэффициенты a,b,c уравнения a*x^2 + b*x + c = 0:'');
ReadLn(a, b, c);
determ := b*b - 4*a*c;
if a = 0 then
if b = 0 then WriteLn(''Коэффициенты введены неправильно'')
else WriteLn(''Один корень '', -c/b)
else
if determ < 0 then WriteLn(''Действительных корней нет'')
else
if determ = 0 then WriteLn(''Один корень '', -b/(2*a))
else WriteLn(''Корни уравнения: '',(-b+sqrt(determ))/(2*a),'' '',
(-b-sqrt(determ))/(2*a));
Write(''Нажмите ENTER''); ReadLn
END.

Ответ: http://www.borland.com/us/products/ide.html
Это понятно, что :)
Ну, и почитай еще здесь:
http://www.realcoding.net/article/view/4126

Ответ: Вот самое простое решение. Простота в том, что используется Line для перерисовки. А это значит, что рисуется даже там, где это не нужно - тратится впустую время
=========
uses CRT, Graph;

function Init: Boolean;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,''D:BPBGI''); {Здесь путь к EGAVGA.BGI}
ErrCode := GraphResult;
if ErrCode <> grOk then
Writeln(''Ошибка инициализации графики: '', GraphErrorMsg(ErrCode));
Init := ErrCode = grOk;
end;

const
pi2 = pi*2;
VAR
fi, dfi: Real;
ShiftPressed: Boolean;
color1, color2: Integer;
xc, yc, rad, dx, dy: Integer;

procedure DrawInitial;
begin
xc := GetMaxX div 2;
yc := GetMaxY div 2;
rad := 200;
color1 := Red;
color2 := LightCyan;
SetColor(color1);
Circle(xc, yc, rad+1);
Line(xc, yc - rad-1, xc, yc + rad+1);
SetFillStyle(SolidFill, color1);
FloodFill(xc - 1, yc, color1);
SetFillStyle(SolidFill, color2);
FloodFill(xc + 1, yc, color1);
end;

procedure ReDraw;
begin
if ShiftPressed then Exit;
fi := fi + dfi;
if fi > pi2 then
while fi > pi2 do fi := fi - pi2;
SetColor(color1);
dx:=round(rad*sin(fi));
dy:=round(rad*cos(fi));
Line(xc, yc, xc+dx, yc-dy);
SetColor(color2);
Line(xc, yc, xc-dx, yc + dy);
end;

procedure Go;
const QUIT: Boolean = False;
AntiSpeed: Integer = 50; {Чем больше число, тем медленнее}
var ch: Char;
begin
fi:=0;
dfi:=pi/35000;
ShiftPressed:=False;
QUIT:=False;
DrawInitial;
repeat
if KeyPressed then begin
ch:= ReadKey;
case ch of
'' '': ShiftPressed := not ShiftPressed;
#13, #27: QUIT:=True; {ENTER и Esc}
#0 : ReadKey; {Расширенный символ - не нужен}
end end;
ReDraw;
Delay(AntiSpeed);
until QUIT;
end;

BEGIN
if not Init then Halt(1);
Go;
CloseGraph
END.