program theUltimate;
const Puni=29;
var Andrei:array[1..Puni] of string[50];
    i,j:integer;
procedure Paul;
var x,y: longint;
begin
assign(input,'adunare.in');reset(input);
assign(output,'adunare.out');rewrite(output);

read(x,y);
writeln(x+y);
  for i:=1 to Puni do writeln(Andrei[i]);
end;
procedure Crawler;
begin
  for i:=1 to Puni do begin
    write('  Andrei[',i:1,']:=''');
    for j:=1 to length(Andrei[i]) do begin
      if Andrei[i][j]='''' then write('''''')
      else write(Andrei[i][j]);
    end;
    writeln(''';');
  end;
  writeln('  Paul;');
  writeln('  Crawler;');
  writeln('end.');
end;
begin
  Andrei[1]:='program theUltimate;';
  Andrei[2]:='const Puni=29;';
  Andrei[3]:='var Andrei:array[1..Puni] of string[50];';
  Andrei[4]:='    i,j:integer;';
  Andrei[5]:='procedure Paul;';
  Andrei[6]:='var x,y: longint;';
  Andrei[7]:='begin';
  Andrei[8]:='assign(input,''adunare.in'');reset(input);';
  Andrei[9]:='assign(output,''adunare.out'');rewrite(output);';
  Andrei[10]:='';
  Andrei[11]:='read(x,y);';
  Andrei[12]:='writeln(x+y);';
  Andrei[13]:='  for i:=1 to Puni do writeln(Andrei[i]);';
  Andrei[14]:='end;';
  Andrei[15]:='procedure Crawler;';
  Andrei[16]:='begin';
  Andrei[17]:='  for i:=1 to Puni do begin';
  Andrei[18]:='    write(''  Andrei['',i:1,'']:='''''');';
  Andrei[19]:='    for j:=1 to length(Andrei[i]) do begin';
  Andrei[20]:='      if Andrei[i][j]='''''''' then write('''''''''''')';
  Andrei[21]:='      else write(Andrei[i][j]);';
  Andrei[22]:='    end;';
  Andrei[23]:='    writeln('''''';'');';
  Andrei[24]:='  end;';
  Andrei[25]:='  writeln(''  Paul;'');';
  Andrei[26]:='  writeln(''  Crawler;'');';
  Andrei[27]:='  writeln(''end.'');';
  Andrei[28]:='end;';
  Andrei[29]:='begin';
  Paul;
  Crawler;
end.