Question

Как в паскале сделать так, чтобы когда ты вводил букву(a) оно выдало число в ответ, которое было заданное ранее в программе(например 2)?
Например:
var a,b,c, chislo1 : integer;
begin
readln(chislo1);
a:=1;
b:=2;
c:=3;
writeln(chislo1);
end.