uses crt, bitwise, dos;
var f:text;
    r,x1,x2,y:integer;


function wf(v:integer;s:string):boolean;
var bb,bh:string;
function pc(s:string):string;  begin  pc:=('<td>'+s+'</td>');end;
begin
     if(hi(v)=0)or(not hi(v)=0) then begin
          bb:=membits(@v,1);
          bh:=memhex(@v,1);
     end else begin
          bb:='-';
          bh:='-';
     end;
  writeln(f,'<tr align=center>',pc(s),pc(bb),pc(bh),pc(membits(@v,2)),pc(memhex(@v,2)),'</tr>');
end;
begin
clrscr;
write('x1 = ');readln(x1);
write('x2 = ');readln(x2);
write('y = ');readln(y);
assign(f,'2.htm'); rewrite(f);
  writeln(f,  '<table border=1 cellspacing=0 cellpadding=0 style="font-family:''Courier New'', Courier, monospace">',
    '<tr align="center"><td rowspan=2>Nr.</td><td colspan=2>Byte</td><td width=192 colspan=2>Word</td></tr>',
    '<tr align="center"><td>binar</td><td>hex</td><td>binar</td><td width=54>hex</td></tr>');

wf(x1+y,'x1+y');wf(x1-y,'x1-y');wf(-x1+y,'-x1+y');wf(-x1-y,'-x1-y');
wf(x2+y,'x2+y');wf(x2-y,'x2-y');wf(-x2+y,'-x2+y');wf(-x2-y,'-x2-y');
  writeln(f,'</table>');
close(f);
writeln('tabelul a fost generat');

exec(getenv('comspec'),'/C start 2.htm');

{readkey;}
end.