program digital; procedure prjedna; begin write(' + '); end; procedure prdva; begin write('+---+ '); end; procedure prstyri; begin write('+ + '); end; procedure drjedna; begin write(' | '); end; procedure drstyri; begin write('| | ') end; procedure drpat; begin write('| '); end; procedure stsedem; begin write(' + '); end; procedure stnula; begin write('+ + '); end; procedure medzeri; begin write(' '); end; procedure gula; begin write('o '); end; var c: array[1..4] of integer; cas: string; j,cislo,i: integer; begin cislo:=1; repeat readln(cas); if cas<> 'end' then begin for j:=1 to 7 do begin case j of 1: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1: prjedna; 2,3,5,6,7,8,9,0: prdva; 4: prstyri; 10: medzeri; end; end; 2: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1,2,3,7: drjedna; 5,6: drpat; 4,8,9,0: drstyri; 10: medzeri; end; end; 3: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1,2,3,7: drjedna; 5,6: drpat; 4,8,9,0: drstyri; 10: gula; end; end; 4: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1: prjedna; 4,5,6,8,9,2,3: prdva; 7: stsedem; 0: stnula; 10: medzeri; end; end; 5: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1,3,4,7,9,5: drjedna; 2: drpat; 6,8,0: drstyri; 10: gula; end; end; 6: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 1,3,4,7,9,5: drjedna; 2: drpat; 6,8,0: drstyri; 10: medzeri; end; end; 7: for i:=1 to 5 do begin cislo:=ord(cas[i])-48; case cislo of 2,3,5,6,8,9,0: prdva; 1: prjedna; 4,7: prjedna; 10: medzeri; end; end; end; writeln; end; writeln; writeln; end; until cas='end'; writeln('end'); end.