string10

//napisati program za sabiranje pozitvih cijelih visecifrenih brojeva
//koristeci stringove
{
s1: 475809373927
s2:       332434
s3:

}
program sabiranje;
var
s2,s1,s3:string;
i,j,n:integer;

procedure dopuni(var s1,s2:string);
var m,n,i:integer;
begin
    m:=length(s1);
    n:=length(s2);
    if m>n then
    begin
            for i:=1 to m-n do s2:='0'+s2;
    end
    else
    begin
            for i:=1 to n-m do s1:='0'+s1;

    end
end;

procedure sabiranje(s1,s2:string; var s3:string);
var i,cifra,prenos,c1,c2:integer; pom:string;
begin
    s3:='';
    prenos:=0;
    for i:=length(s1) downto 1 do
    begin
        val(s1[i],c1);
        val(s2[i],c2);
        cifra:=(c1+c2+prenos) mod 10;
        prenos:=(c1+c2+prenos) div 10;
        str(cifra,pom);
        s3:=pom+s3;
    end;
    if prenos=1 then s3:='1'+s3;
end;

procedure stampa(s1,s2,s3:string);
var i,j,k,l:integer;
begin
    i:=0;
    while(s1[i+1]='0') do
    begin s1[i+1]:=' ';i:=i+1; end;
    j:=0;
    while(s2[j+1]='0') do
    begin s2[j+1]:=' ';j:=j+1; end;
    if length(s3)>length(s2) then
    begin
    s1:='  '+s1;
    s2:=' +'+s2;
    s3:='='+s3;
    end;
    writeln(s1);
    writeln(s2);
    writeln(s3);
end;
begin
    write('prvi broj: ');readln(s1);
    write('drugi broj: ');readln(s2);
    dopuni(s1,s2);
    sabiranje(s1,s2,s3);
    stampa(s1,s2,s3);
    readln;
end.