Почтовый индекс

[vajiera17]

Привет форумчане. Помогите с заданием по C++ Builder 6.

Задание:
Почтовый индекс. Заданное шестиразрядное десятичное натуральное число изобразить цифрами по 9-сегментному шаблону, используемому при почтовой индексации.

То есть, как я понял, надо чтоб пользователь например ввел 6 цифр, а они были выведены как пишут цифры на конвертах почтовых.

Вот есть текст программы, но он в Pascal. Если кто может перекомпилировать этот текст в С++ буду также очень благодарен.
Код программы в Паскаль

program rghygu;
uses crt, graphabc;
var i, y, c: integer;
  s: string;

procedure a0(x: integer);
begin
  rectangle(x, y, x + 20, y + 40);
end;

procedure a2(x: integer);
begin
  line(x, y, x + 20, y);
  line(x + 20, y, x + 20, y + 20);
  line(x + 20, y + 20, x, y + 40);
  line(x, y + 40, x + 20, y + 40);
end;

procedure a1(x: integer);
begin
  line(x, y + 20, x + 20, y);
  line(x + 20, y, x + 20, y + 40);
end;

procedure a3(x: integer);
begin
  line(x, y, x + 20, y);
  line(x + 20, y, x, y + 20);
  line(x, y + 20, x + 20, y + 20);
  line(x + 20, y + 20, x, y + 40);
end;

procedure a4(x: integer);
begin
  line(x, y, x, y + 20);
  line(x, y + 20, x + 20, y + 20);
  line(x + 20, y, x + 20, y + 40);
end;

procedure a5(x: integer);
begin
  line(x + 20, y, x, y);
  line(x, y, x, y + 20);
  line(x, y + 20, x + 20, y + 20);
  line(x + 20, y + 20, x + 20, y + 40);
  line(x + 20, y + 40, x, y + 40);
end;

procedure a6(x: integer);
begin
  line(x + 20, y, x, y);
  line(x, y, x, y + 40);
  line(x, y + 20, x + 20, y + 20);
  line(x + 20, y + 20, x + 20, y + 40);
  line(x + 20, y + 40, x, y + 40);
end;

procedure a7(x: integer);
begin
  line(x, y, x + 20, y);
  line(x + 20, y, x, y + 20);
  line(x, y + 20, x, y + 40);
end;

procedure a8(x: integer);
begin
  rectangle(x, y, x + 20, y + 40);
  line(x, y + 20, x + 20, y + 20);
end;

procedure a9(x: integer);
begin
  rectangle(x, y, x + 20, y + 20);
  line(x + 20, y + 20, x, y + 40);
end;
begin
  writeln('введите 6-ти значный индекс');
  readln(s);
  y := 20;
  c := 20;
  for i := 1 to 6 do
    case s[i] of
      '0': a0(c + (i * 30));
      '1': a1(c + (i * 30));
      '2': a2(c + (i * 30));
      '3': a3(c + (i * 30));
      '4': a4(c + (i * 30));
      '5': a5(c + (i * 30));
      '6': a6(c + (i * 30));
      '7': a7(c + (i * 30));
      '8': a8(c + (i * 30));
      '9': a9(c + (i * 30));
    end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.