Объясните задачу

[oleg203]

1. 3х^2+5х+6

var x,y:integer;
begin
writeln ('vvedite x');
readln (x);
asm
mov eax,x
mul eax,eax
imul eax,3
mov ebx,x
imul ebx,5
add eax,ebx
add eax,6
mov x,eax
@end:
end;
writeln(x);
readln;

2. если х>5 то y=5x^2+4 , а иначе 3x^2+3х+5

var x,y:integer;
begin
writeln ('vvedite x');
readln (x);
asm
mov eax,x
cmp eax,5
ja @else
mul eax,eax
imul eax,3
mov ebx,x
imul ebx,3
add eax,ebx
add eax,5
mov y,eax
jmp @end
@else:
mul eax,eax
imul eax,5
add eax,4
mov y,eax
@end:
end;


writeln ('y=',y);
readln (y);

3. Изменить порядок массива.

var m:array[1..8] of integer;
i:integer;
j,k,a,b,c:integer;

begin
randomize;
{ TODO -oUser -cConsole Main : Insert code here }
for I := 1 to 8 do begin
m[i]:=random(8);
write(m[i]:2);
end;
writeln;
asm

lea esi, m
mov edi, esi
add edi, 28

@sa:
cmp esi, edi
jnb @end


@true:
mov eax, [esi]
mov ebx, [edi]
mov [esi], ebx
mov [edi], eax
add esi, 4
sub edi, 4
jmp @sa
@end:
end;
for i := 1 to 8 do
write(m[i]:2);
readln;

end.