Program Pascal Murajaah Ayat-Ayat Surat Al-Fatihah Secara Acak

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

begin
writeln('Bismillahirrahnirrahim');
writeln('Read the following verse lafadz of Qur-an and its translation in Indonesian and English');
a:=[1..7];
for x:=1 to 7 do
begin
randomize;
for a1 in a do
begin
z:=z+1;
a2[z]:=a1;
end;
y:=random(z)+1;
b:=[a2[y]]; write('QS1:',a2[y]);
readln;

a:=a-b; z:=0;
end;
writeln('Alhamdulillahi Rabbal ',#39,'Alamin');
readln;
end.

Posted in: