Pascal Game
program game;
var
Deck : Array [1..4,1..13] of integer;
suit_var, card_var : Integer;
card: integer;
Shuffle : Array [1..4, 1 ..13] of integer;
suit2_var, card2_var : Integer;
begin
for suit_var := 1 to 4 do
begin
for card_var := 1 to 13 do
for card:= 1 to 13 do
Deck[suit_var] [card_var] :=card;
end;
for suit_var := 1 to 4 do
begin
for card_var := 1 to 13 do
begin
if suit_var=1 then
write('diamond');
if suit_var=2 then
write('clubs');
if suit_var=3 then
write('hearts');
if suit_var=4 then
write('spades');
write(',');
if card_var=11 then
write('Jack');
if card_var=12 then
write('Queen');
if card_var=13 then
write('King');
if card_var=1 then
write('Ace');
if card_var=2 then
write('Two');
if card_var=3 then
write('Three');
if card_var=4 then
write('Four');
if card_var=5 then
write('Five');
if card_var=6 then
write('Six');
if card_var=7 then
write('Seven');
if card_var=8 then
write('Eight');
if card_var=9 then
write('Nine');
if card_var=10 then
write('Ten');
write(' ');
end;
end;
readln;
end.