How to work with char by example

How to work with char by example

To work with char by example

Example:

program Welcome;

uses

Wincrt;

var

a:char;

begin

Writeln('Enter the you name: ');

Readln(a);

Writeln('Name: ',a);

end.

Output: