PROGRAM rower; VAR d1, d2, d3, d4, d5, d6, d7, D:Integer; BEGIN Repeat Write('Podaj dzień tygodnia liczbą lub 0 aby zakończyć: '); Readln(D); Write('Podaj wynik z '); CASE D of 1:BEGIN Write('poniedziałku: '); Readln(d1) END; 2:BEGIN Write('wtorku: '); Readln(d2) END; 3:BEGIN Write('środy: '); Readln(d3) END; 4:BEGIN Write('czwartku: '); Readln(d4) END; 5:BEGIN Write('piątku: '); Readln(d5) END; 6:BEGIN Write('soboty: '); Readln(d6) END; 7:BEGIN Write('niedzieli: '); Readln(d7); END; 0:BEGIN Writeln; Writeln('Poniedzałek':15, 'Wtorek':15, 'Środa':15, 'Czwartek:15'); Writeln(d1:15, d2:15, d3:15, d4); Writeln; Writeln('Piątek':15, 'Sobota':15, 'Niedziela':15); Writeln(d5:15, d6:15, d7:15) END; END; UNTIL D=0; END.