Ответ: Вот "Мерсен":
{Метод решения: условие n= 2p - 1. Отсюда p = (n+1)/2. То есть, надо найти все простые числа меньше или равные (n+1)/2 }
function IsSimple(num: Word): boolean;
var i: Word;
begin
IsSimple:=FALSE;
for i:= num -1 downto 2 do
if num mod i = 0 then Exit;
IsSimple:=TRUE;
end;

var
N, P: Word;
BEGIN
Write(''Введите целое положительное число :'');
ReadLn(N);
P:=(N+1) div 2;
while P > 1 do begin
if IsSimple(P) then write(''N='',2*P-1:6,'' P='',P:6,'' '');
P:=P - 1
end;
WriteLn;
END.

Ответ: Проверил http://borlpasc.narod.ru/prog1/shab6_3.pas в Opera. Открылась текстовая страничка, содержимое которой можно скоприровать выделив все и нажав Ctrl+C.

Ответ: Какие ограничения есть? Где? На экране?
Вот, пожалуйста, простейшая программа, которая правильно для четных N < 10 работает
Для нечетных нужно небольшое уточнение
-----
const
N = 8;
N2 = N div 2;

var i, j: Integer;
BEGIN
WriteLn;
for i:=1 to N2 do
begin
for j:=1 to i do write(j);
for j:=i+1 to N-i do write(i);
for j:=N-i to N-1 do Write(N-j);
WriteLn
end;
for i:=N2 downto 1 do
begin
for j:=1 to i do write(j);
for j:=i+1 to N-i do write(i);
for j:=N-i to N-1 do Write(N-j);
WriteLn
end;
END.

Ответ: Напишите, какие. Я не с самого начала на этом сайте. Попробую помочь

Ответ: :)) Ну, если быть честными, то Вирту больше чести, чем нам
А так спасибо на добром слове

Ответ: Вот посмотри как просто это делается: очередную букву вставляем в начало, а не в конец, формируемого слова
---------------
const
source: String = ''1234 567,890''; {исходная строка}
chars : Set of char =[''0''..''9'''', ''a''..''z'',''A''..''Z'',''А''..''п'',''р''..''я''];

function Find_invers(sou: String; var p: Integer): String;
var s: String;
n: Integer;
begin
s:='''';
while (p<=length(sou)) and (not (sou[p] in chars)) do
inc(p);
if p < length(sou) then
while ((p<=length(sou)) and (sou[p] in chars)) do
begin
s:=sou[p]+s; {ВОТ ЗДЕСЬ ФОРМИРУЕТСЯ СЛОВО ИЗ БУКВ}
inc(p)
end;
Find_invers:=s
end;

var
i: Integer;
BEGIN
i:=1;
WriteLn(source);
while i < length(source) do
WriteLn(Find_invers(source, i));

source :=''!ьсоличуоп едорВ'';
writeLn(source);
i:=1;
while i < length(source) do
WriteLn(Find_invers(source, i));
END.

Ответ: Один вариант: преобразуете в строку с помощью процедуры STR, а потом функцией POS определяете, если ли.
Второй:
repeat
ost:=number mod 10; {находим остаток и прверяем, не равен ли 0 или 8}
number := number div 10; {следующее число}
until numder = 0;

Ответ: Какие подробности задачи, ограничения. Это не сложно

Ответ: :)) Скорее всего, в том, что нужно z :=exp(Y*ln(X))
А вообще-то в таких вопросах лучше приводить хотя бы часть кода своего - легче понять, в чем ошибка

Ответ: Изображение букв находится в папке BGI в файлах с расширением .chr. Сначала попробуйте устанавливать разные шрифты. Если не удастся, напишите, какие не выводят (может у меня есть)
Была даже программа для изменения шрифтов.

Ответ: Если речь идет об использовании ассемблерных вставок, то упрек принят. Действительно, они помагают устранить все недостатки уже старенького Borland Pascal.
Что Вас интересует?

Ответ: Вот вариант решения. Сильно не тестировал, но, кажется работает правильно
-------------
Но что-то отображает неверно - заменяются одиночные паскалевские кавычки двойными при сохранении :((
-----------
const FIAOS: String = ''FIAOS'';
var
i, j, k, m, n: Integer;
count: Integer;
S: String;
BEGIN
count:=0;
WriteLn;
for i:=1 to 5 do
for j:=1 to 5 do
if i <> j then
for k:=1 to 5 do
if (k<>i) and (k<>i) and (k<>j) then
for m:=1 to 5 do
if (m<>i) and (m<>j) and (m<>k) then
for n:=1 to 5 do
if (n<>i) and (n<>j) and (n<>k) and (n<>m) then
begin
inc(count);
Write(count:3,'' '',
FIAOS[i]+FIAOS[j]+FIAOS[k]+FIAOS[m]+FIAOS[n],
'' '');
end;
END.