Калькулятор Опции

[Mnogosisa_pravda_ona]

Как так сделать, чтобы выбор цифры осуществлялся нажатием клавиши "Enter" столько раз сколько одинаковых цифр надо выбрать.Например, выбрал кнопку "1" и нажал "Enter" три раза, должно получится 111. Я думаю вы меня поняли, что я хочу узнать?

[TheDimaT]

program Calkulytor;
uses crt;
var
a, b, c, d: real;

begin
writeln('----------------------------------КАЛЬКУЛЯТОР!----------------------------------');
writeln('Выбирете действие');
writeln('1-Сложение (+)');
writeln('2-Вычитание (-)');
writeln('3-Умножение (*)');
writeln('4-Деление (/)');
writeln('5-Квадрат числа (a2)');
writeln('6-Куб числа (a3)');
writeln('7-Корень числа (^)');
readln(b);
if b = 2 then
begin
writeln('Уменьшаемое=');
readln(a);
writeln('Вычитаемое=');
readln©;
d := a - c;
writeln('Разница чисел равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b = 1 then
begin
writeln('1-ое Слагаемое=');
readln(a);
writeln('2-ое Слагаемое=');
readln©;
d := a + c;
writeln('Сумма чисел равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b = 3 then
begin
writeln('1-ый Множитель=');
readln(a);
writeln('2-ой Множитель=');
readln©;
d := a * c;
writeln('Произвидение чисел равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b = 4 then
begin
writeln('Делимое=');
readln(a);
writeln('Делитель=');
readln©;
d := a / c;
writeln('Частное чисел равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b=5 then
begin
writeln('Число А=');
readln(a);
d:= a * a;
writeln('Число равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b=6 then
begin
writeln('Число А=');
readln(a);
d:= a * a * a;
writeln('Число равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
if b=7 then
begin
writeln('Число А=');
readln(a);
d:=sqrt(a);
writeln('Число равно: ', d);
writeln('-------------------------------------КОНЕЦ!-------------------------------------');
end;
end.