Задачка на смещение в Паскале. Надо просто вывести числа. Сам Паскаль не знаю, а то что изучал в школе забыл уже, а в универе задали такое. Вот исходник, того что получилось, проблема в том что не правильно выдает только x_3 а все остальное нормально, помогите плиз. Код (Text): Type T_7 = record x_1 : Word; x_2 : Byte; x_3 : Double; x_4 : Array [1..2] of Byte; x_5 : Char; x_6 : Integer; end; { x.x_1 := 61932; x.x_2 := 15; x.x_3 := -175.152; x.x_4[1] := 11; x.x_4[2] := 12; x.x_5 := 'q'; x.x_6 := -1751;} var x : T_7; begin asm {ᬥ饨Ґ x а §¬ҐбвЁвм ў bx} mov bx, offset x {x.x_1 := 61932} mov ax, 0F1ECh mov [bx],ax {x.x_2 := 15} mov al,0fh mov [bx+2],al {x.x_3 := -175.1521} mov ax,00000h mov [bx+4],ax mov ax,00000h mov [bx+6],ax mov ax,0e4ddh mov [bx+8],ax mov ax,0c075h mov [bx+10],ax {x.x_4[1] := 11} mov ax,0Bh mov [bx+11],ax {x.x_4[2] := 12} mov ax,0Ch mov [bx+12],ax {x.x_5 := 'l'} mov al,108 mov [bx+13],al {x.x_6 := -1751} mov ax,0f929h mov [bx+14],ax end; Writeln; Writeln('x.x_1 = ', x.x_1); Writeln('x.x_2 = ', x.x_2); Writeln('x.x_3 = ', x.x_3); Writeln('x.x_4[1] = ', x.x_4[1]); Writeln('x.x_4[2] = ', x.x_4[2]); Writeln('x.x_5 = ', x.x_5); Writeln('x.x_6 = ', x.x_6); Readln; end.