Program piros_a;
uses crt;
var a,b:integer;
procedure kiir(x,y:integer);
begin
     textcolor(red);
     gotoxy(x,y);
     write('A');
     textcolor(7);
end;
begin
     clrscr;
     readln(a);
     readln(b);
     kiir(a,b);
     readln
end.