var a:char;begin
read(a);case a of'2':write("x=2
y=4");'x':write("w=5
x=100
y=-20
z=-30");'a':write("a=1
b=7
c=19
d=32
e=87
f=54
g=34
h=19
i=2
j=75
k=25
l=46
m=63
n=23
o=18")end
end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).