program diamond (input,output);
var
   sign:char;
   rows,i,j : integer;
begin
   write('Enter the char: ');
   read(sign);
   write('Enter number of rows: ');
   read(rows);
   for i:=1 to ((rows+1) div 2) do
   (* draw the upper part *)
   begin
      for j:=1 to ((rows+1) div 2)-i do
      (* write the spaces*)
         write(' ');
      for j:=1 to 2*i-1 do
      (* write the signs*)
         write(sign);
      writeln;
      (* go down one line *)
   end;
   for i:=1 to (rows div 2) do
   (* draw the lower part*)
   begin
      for j:=1 to i do
      (* write the spaces *)
         write(' ');
      for j:=1 to rows-2*i do
      (* write the signs*)
         write(sign);
      writeln;
      (* go down one line *)
   end;
end.