Нужно решение этих задач, отчисляют

var a:integer;
    h,l:byte;
begin
write('Введите a:');
readln(a);
asm
mov ax,a
mov h,ah
mov l,al
end;
writeln(a,'=256*',h,'+',l);
end.

var a,b:integer;
    sum:integer;
begin
writeln('Введите а и b:');
readln(a);
readln(b);
asm
mov ax,a
add ax,b
mov sum,ax
end;
writeln('Сумма:',sum);
end.

var a:integer;
begin
write('Введите а (значения от -32768 до 32768):');
readln(a);
asm
mov ax,a
add ax,100
mov a,ax
end;
writeln('A=',a);
end.

uses crt;
var a:integer;
begin
clrscr;
a:=100;
writeln('a=',a);
asm
push 255
pop a
end;
writeln('a=',a);
readln;
end.

uses crt;
var a,b,c,d,e,f,g,h,k,l:integer;
begin
clrscr;
a:=1;b:=2;c:=3;d:=4;e:=5;f:=6;g:=7;h:=8;k:=9;l:=10;
asm
push a;push b;push c;push d;push e
push f;push g;push h;push k;push l
pop l;pop k;pop h;pop g;pop f
pop e;pop d;pop c;pop b;pop a
end;
writeln(a);
writeln(b);
writeln(c);
writeln(d);
writeln(e);
writeln(f);
writeln(g);
writeln(h);
writeln(k);
writeln(l);
readln;
end.

uses crt;
var a:integer;
begin
clrscr;
a:=100;
writeln('a=',a);
asm
push 255
pop a
end;
writeln('a=',a);
readln;
end.

uses crt;
var a,b,c,d,e,f,g,h,k,l:integer;
begin
clrscr;
a:=1;b:=2;c:=3;d:=4;e:=5;f:=6;g:=7;h:=8;k:=9;l:=10;
asm
push a;push b;push c;push d;push e
push f;push g;push h;push k;push l
pop l;pop k;pop h;pop g;pop f
pop e;pop d;pop c;pop b;pop a
end;
writeln(a);
writeln(b);
writeln(c);
writeln(d);
writeln(e);
writeln(f);
writeln(g);
writeln(h);
writeln(k);
writeln(l);
readln;
end.

uses crt;
var a:integer;
    n:byte;
begin
clrscr;
write('A=');
readln(a);
write('N=');
readln(n);
asm
mov bl,0
mov ax,1
mov bh,n
mov cx,a
@lp1:
inc bl
mul cx
cmp bl,bh
jnz @lp1
mov a,ax
end;
writeln('a^n=',a);
readln;
end.