Как вывести символ используя десятичного номера?

[forged]

1234567891

[forged]

Сообщение от Poma][a

Мне кажется ответ не на тот вопрос
Автор собирается выводить символы, использую длину строки! Поэтому и идея вывести 251 символ ТС не очень нравится.

Да!!! Я не правильно выразился в вопросе.
Мне нужно было во это:

Сообщение от s-andriano

BEGIN
  writeln(#3);
  readln;
end.

Спасибо!!!

[Sciv]

Похоже, в этой ветке s-andriano проявил самые высокие телепатические способности

[s-andriano]

Сообщение от Sciv

Похоже, в этой ветке s-andriano проявил самые высокие телепатические способности

Отнюдь.
Я просто попытался максимально сократить программу ТС, чтобы она сохранила вывод на экран.
Т.е. действовал чисто рационально.

[Poma][a]

Надо способ ТС в юмор унести (Без обид)

Интересно, а можно использовать способ s-andriano для переменных?

[Sciv]

Интересно, а можно использовать способ s-andriano для переменных

В смысле?

Типа такого:

s:=#3;
WriteLn(s);

Не?

[s-andriano]

Сообщение от Poma][a

Надо способ ТС в юмор унести (Без обид)

Интересно, а можно использовать способ s-andriano для переменных?

var ch : char;
begin
  ch := #123;
  writeln(ch);
  readln;
end.

[Poma][a]

Не
Например что-то типо этого :

begin
     ReadLn (ch); // ch : Char
     WriteLn (#ch)
end.

Или

ReadLn (n); // n : Integer
ch := #n;
WriteLn(ch)

Компилятор ужасно ругается.. Но может есть какой-то красивый способ обхода?

[Sciv]

Но может есть какой-то красивый способ обхода?

Через стандартные функции ord, chr. Больше никак имхо.

[Kix.IV]

ReadLn (n); // n : Integer
ch := #n;
WriteLn(ch)

Может быть так:

Readln (n); // n : Integer
Writeln(Char(n));

?