program uzd2; Uses Crt; type cipari=array[1..24] of string; var s1,s2,r,sk1,sk2: string; a1,a2: char; k,l1,l2,l,t,sk,g: integer; c:cipari; a,b:longint; begin ClrScr; repeat writeln('Ievadiet mazinaamo:'); readln(sk1); l1:=length(sk1); for k:=1 to l1 do a:=ord(upcase(sk1[k])); if not ((a in [48..57]) or (a in [65..70])) then begin writeln('Skaitlis ir ievadits nepareizi!'); break end;end; until ((a in [48..57]) or (a in [65..70])); repeat writeln('Ievadiet mazinaataaju:'); readln(sk2); l2:=length(sk2); for k:=1 to l2 do b:=ord(upcase(sk2[k])); if not ((b in [48..57]) or (b in [65..70])) then begin writeln('Skaitlis ir ievadits nepareizi!');break end;end; until ((b in [48..57]) or (b in [65..70])); for k:=1 to l1 do s1[l1-k+1]:=sk1[k]; for k:=1 to l2 do s2[l2-k+1]:=sk2[k]; if l1>l2 then l:=l1 else l:=l2; t:=0; r:=''; for k:=1 to l do begin a1:='0'; a2:='0'; if k<=l1 then a1:=s1[k]; if k<=l2 then a2:=s2[k]; t:=sk div 16; g:=sk mod 16; if g<10 then r:=r+chr(g+48) else r:=r+chr(g+55); if (t>0) and (k=l) then r:=r+'1'; end; writeln; writeln(sk1); writeln('-'); writeln(sk2); writeln('Starpiiba ir: '); for k:=length(r) downto 1 do write(r[k]); readkey end.