Translate the executable statements of the following Pascal Program into quadruples. Assume that integer and real values require four words each.
repeat
flag[i]:=true;
while turn !=i
do begin
while flag[j] do skip
turn:=i;
end
critical section
flag[i]:=false;
until false
Program Test;
var i:integer;
a: array [1...10] of real;
begin i:=0;
While i:<=10 do
begin
a[i]:=0;
i:=i+1
end;
end.