program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
tmas=array[1..5] of integer;
i,s:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
for i := 1 to 5 do
a:=random (9)+1;
asm
mov edx,4
mov ecx,0
mov esi,0
mov edi,5
lea eax, a
@@mas:
mov ebx,[eax]
add eax, edx
add ecx, ebx
inc esi
cmp esi, edi
jb @@mas
mov s, ecx
end;
for i := 1 to 5 do
write(a,' ');
writeln;
writeln(s);
readln;
end.