*
    ***
   *****
  *******

program Zvezda;
uses
CRT;
var
R,C,i,Z,B:integer; X,G,ch:char;

procedure Zvezdochka(var R,C:integer);
begin
readln(R);
readln(X);
readln(C);
for i:=1 to R do begin
write(' '); end;
for i:=1 to C do begin
write(X); end;
end;



Begin
clrscr;
writeln('Vvedite:');
writeln('1)Na kakom rasstoianii budet naxoditsia simvol:');
writeln('2)Kakoy eto simvol');
writeln('3)Skolko budet takix simvolov');
Zvezdochka(R,C);
readln(G);
end.

Uses Crt;
Const
  k = 4;
Var
  j : byte;

Procedure ZVD(nn : byte;Ch : Char);
Var ii : Byte;
Begin
  For ii:=1 to nn do Write(Ch);
End;

Begin
  For j:=1 to k do
  Begin
    GoToXY(k+1-j,WhereY);
    ZVD(j*2-1,'*');
    Writeln;
  End;
End.