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

[Mnogosisa_pravda_ona]

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

[volvo]

Mnogosisa_pravda_ona, все довольно просто, свой цикл while true do меняешь вот на этот:

count := 0;
while true do begin
  ch := #1;
  while (ch <> #13) and (ch <> #0) do ch := readkey;
  if ch = #0 then ch := readkey;
  case ch of
    #72: kn:=kn-1;
    #80: kn:=kn+1;
    #75: kn:=kn-1;
    #77: kn:=kn+1;
    #13:
      begin
        case kn of
         1: begin plus; textcolor(red); lett := '+'; end;
         2: begin minus; textcolor(red); lett := '-'; end;
         3: begin multiply; textcolor(red); lett := '*'; end;
         4: begin separate; textcolor(red); lett := '/'; end;
         5, 6, 7, 9, 10, 11, 12, 13, 15, 16:
            begin
              for i := 0 to 9 do
                if digits[i] = kn then a := i;
              textcolor(green);
              lett := chr(a + ord('0'));
            end;


         18: exit;
        end;
        gotoxy(8+count,4); write(lett); inc(count);
      end;

  end;
  if kn=0 then kn:=18;
  if kn=19 then kn:=1;
  buttoms(kn);
end;

, и добавляешь вот такие константы/переменные:

const
  digits: array[0 .. 9] of integer = (
    11, 5, 9, 12, 15, 6, 10, 13, 16, 7
  );
var
  count: integer;
  lett: char;

Попробуй, посмотри что получится.

А вообще, твою программу можно сократить наполовину...