Programalama > PASCAL

Uses Crt;
Var
i,m,j,k:Integer;
s:Array[1..6] of Integer;
T:Char;
b:Integer;
Begin
Clrscr;
Randomize;
For i:=1 to 6 do
Begin
For j:=1 to 10 do
Begin
s[i]:=Random(48)+1;
Textcolor(i);
Gotoxy(i*10,2); Write(s[i],' ');
Delay(500);
End;
For k:=1 to i-1 do
Begin
If s[i]=s[k] then
i:=i-1;
End;
End;
Gotoxy(25,i); Write('Sralamak istiyormusunuz   [E/H]');
Repeat
T:=Readkey;
Until (T='E') OR (T='e') Or (T='H') Or (T='h');
If (T='E') Or (T='e') Or (T='H') Or (T='h') Then
Begin
T:=Readkey;
For i:=1 to 6 do
For j:=1 to 6 do
If s[i]<s[j] then
Begin
Clrscr;
b:=s[i];  s[i]:=s[j];   s[j]:=b;
End;
For i:=1 to 6 do
Begin
Gotoxy(30,i);Writeln(s[i]);
End;
End;
Readln;
End.