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.