Program Rechteck(input,output);
  Var x,y: integer;
  Begin
    write('Breite: '); readln(x);
    write('Höhe:   '); readln(y);
    Page;
    write('*'\e, x-2, 'C*'\e, y-1, 'B'\e'D*'\e, x, 'D*');
  End.