6.3.16. Napisati program za ispis unesenog znaka i njegovog ASCII broja

Listing programa:

PROGRAM Znak;
VAR
  z: CHAR;
BEGIN
  WRITE('Znak:');
  READLN(z);
  WRITELN(z:3, ORD(z):5);
  READLN;
END.

Ispis na ekranu:

Index