Статья: Арифметические операции. Стандартные математические функции

BEGIN WRITE('введите какой-нибудь символ '); READ(c);

WRITELN('вы ввели символ',Space,c,Space,'его номер=',Ord(c));

WRITELN('соседниеснимсимволы :',Space,Pred(c),Space,

'и',Space,Succ(c));

WRITELN('UpCase(',c,')=',UpCase(c)); WRITELN;

Space:='"'; WRITE('теперь введите число от 33 до 255 '); READ(n);

WRITELN('символсномером ',n,' - это ',Space,Chr(n),Space);

WRITELN;

END.