program Char_Demonstration;

var Letter : char;
Number : char;
Dogfood : char;

begin
Letter := 'P';
Number := 'A';
Dogfood := 'S';
Write(Letter,Number,Dogfood);
Letter := Number; (* This is now the 'A' *)
Number := 'L';
Dogfood := 'C';
Write(Dogfood,Letter,Number);
Writeln;
end.

---

Result of execution

PASCAL