program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Function Line(Width,MaxWidth,Spacing : Integer) : String;
var
  Loop,BlankSpaces : Integer;
  Line : String;
begin
  BlankSpaces := MaxWidth-Width;
  Line := '';
  For loop := 1-spacing to blankspaces do Line := Line+' ';
  For loop := 1 to Width*2-1 do line := line + '@';
  Result := Line;
end;

Procedure Print (Width,MaxWidth,Spacing : Integer);
var
  Loop,BlankSpaces : Integer;
begin
  writeln(Line(Width,MaxWidth,Spacing));
  if Width < MaxWidth then print(Width+1,MaxWidth,Spacing);
  writeln(Line(Width,MaxWidth,Spacing));
end;

begin
  Print(1,5,70);
end.