uses crt;
var a,b,s:integer;
begin
clrscr;
readln(a);
readln(b);
s:=a+b;
writeln(s);
readln;
end.

for i:=-x0 to x0 do
бла бла бла

 if not i=0 then
begin
......
end;

function xxx(t:integer):boolean;
var
i:integer ;
s:set of 0..9;
f:boolean;
begin
s:=[];
f:=true;
repeat
if (t mod 10) in s then
 begin
 f:=false;
 break
 end;
s:=s+[t mod 10];
t:=t div 10;
until t=0;
xxx:=f;
end;

program Project1;
var
  A, B: array[0..3,0..3] of Real;
  I, J, M: Byte;
  R: Real;
begin
  Randomize;
  WriteLn('B:');
  for I:= 0 to 3 do
  begin
    for J:= 0 to 3 do
    begin
      B[I,J]:= 6*Random - 3;
      Write(B[I,J]:0:4, '  ')
    end;
    WriteLn
  end;
  WriteLn;
  WriteLn('A:');
  for I:= 0 to 3 do
  begin
    M:= 0;
    A[I,0]:= B[I,0];
    for J:= 1 to 3 do
    begin
      A[I,J]:= B[I,J];
      if Abs(B[I,J]) > Abs(B[I,M]) then M:= J
    end;
    R:= A[I,M];
    A[I,M]:= A[I,I];
    A[I,I]:= R;
    for J:= 0 to 3 do
      Write(A[I,J]:0:4, '  ');
    WriteLn
  end;
  ReadLn
end.