var x:array [1..3] of longint;
    st:array [1..3] of string;
    i,j,k,max:byte;

Begin
Write(' Введите первое число: '); Readln(X[1]);
Write(' Введите второе число: '); Readln(X[2]);
Writeln;
X[3]:=X[1]+X[2];
for i:=1 to 3 do Str(X[i],St[i]);
Writeln;

Max:=Length(St[1]);
for i:=1 to 3 do if (Max < Length(St[i])) then Max:= Length(St[i]);

for i:=1 to 3 do
    Begin
    k:=Max-Length(St[i]);
    for j:=1 to k do Write(#32); Writeln(St[i]);
    if (i = 2) then
                   Begin
                   for j:=1 to max do Write('-');
                   Writeln;
                   end;
    end;
Readln;
end.