Pascal Pascal Murajaah Ayat-Ayat 2 Surat Al Qur-an Acak

var
a:set of 1..78; b:set of 1..78;
a1:integer; a2:array[1..78]of integer;
z,y,x,w:integer;

q1:set of 1..7; q1_1,q1_2,q1_4,q1_6:integer; q1_3:array[1..7]of integer;
q1_5:set of 1..7;

q78:set of 1..40; q78_1,q78_2,q78_4,q78_6:integer; q78_3:array[1..40]of integer;
q78_5:set of 1..40;

begin
writeln('بسم اللّه الرّحمان الرّحيم');
z:=0; q1_2:=0; q1_6:=0; q78_2:=0; q78_6:=0;
writeln;
a:=[1,78];
q1:=[1..7];
q78:=[1..40];

w:=7+40;

for x:=1 to w do
begin

write(x,'. ');

for a1 in a do
begin
z:=z+1;
a2[z]:=a1;
end;
randomize;
y:=random(z)+1;
b:=[a2[y]]; write(a2[y],':');

if a2[y] = 1 then
begin
for q1_1 in q1 do
begin
q1_2:=q1_2+1;
q1_3[q1_2]:=q1_1;
end;
q1_4:=random(q1_2)+1;
q1_5:=[q1_3[q1_4]];
write(q1_3[q1_4]); q1_2:=0;
q1:=q1-q1_5;
q1_6:=q1_6+1; if q1_6=7 then a:=a-b;
end;

if a2[y] = 78 then
begin
for q78_1 in q78 do
begin
q78_2:=q78_2+1;
q78_3[q78_2]:=q78_1;
end;
q78_4:=random(q78_2)+1;
q78_5:=[q78_3[q78_4]];
write(q78_3[q78_4]); q78_2:=0;
q78:=q78-q78_5;
q78_6:=q78_6+1; if q78_6=40 then a:=a-b;
end;

readln;
z:=0;
end;
writeln;
writeln('الحمد للّه ربّ العالمين');
readln
end.

Posted in: