Информатика 15 ! в течение недели фиксируйте в таблице то, как вы распоряжаетесь своим свободным временем: сколько времени посвящаете чтению книг, сколько просмотру телепередач, сколько – общению с друзьями и т.д. день недели дата чтение просмотр телепередач компьютерные игры активные игры общение, прогулки другое

Дату сам поставь. пн чтение - 2 часа;   просмотр телепередач - 1  час;   компьютерные игры - 2 часов;   активные игры - 0;   общение, прогулки   - 1 вт  чтение - 3 часа;   просмотр телепередач - 0 часов;   компьютерные игры - 2 часов;   активные игры - 1;   общение, прогулки - 2 ср  чтение  -   2 часа;   просмотр телепередач - 1 час;   компьютерные игры - 0 часов;   активные игры - 0;   общение, прогулки -   1  чт  чтение -   1 час;   просмотр телепередач - 1 час;   компьютерные игры - 1 час  ;   активные игры - 0;   общение, прогулки -   2    пт  чтение - 1 час;   просмотр телепередач - 2 часа;   компьютерные игры - 1 час;   активные игры - 1;   общение, прогулки - 1  суб  чтение - 0 часов;   просмотр телепередач - 2 часов;   компьютерные игры - 2 часов;     активные игры - 1;   общение, прогулки - 3 вс  чтение -   2 часа;   просмотр телепередач - 1 час;   компьютерные игры -1 час;   активные игры  - 1; общение, прогулки - 3

Var i,sum: integer; begin for i: =4 to 100 do     begin          sum: =sum+i;           writeln('summa#',i,'=',sum);     end; end.