Продолжительность занятия —90 минут, после 1-го, 2-го занятия перемены по 10 минут, а после 3-го – 40 минут. дан номер занятия (число от 1 до 6). определите, когда заканчивается занятие.

Через 630мин var y1,y2,y3,y4,y5,y6,rez: integer; begin y1: =90+10; y2: =90+10; y3: =90+40; y4: =90+10; y5: =90+10; y6: =90+10; rez: =y1+y2+y3+y4+y5+y6; writeln(rez); end.

Program p1; var   a: array[1..7,1..7] of byte;   i,j: byte; begin   for i: =1 to 7 do   begin       for j: =1 to 7 do       begin       if i< =4 then           if (j> =i) and (j< =8-i) then a[i,j]: =1 else a[i,j]: =0       else           if (j< =i) and (j> =8-i) then a[i,j]: =1 else a[i,j]: =0;       write(a[i,j]: 2)       end;   writeln   end end. результат выполнения программы:   1 1 1 1 1 1 1   0 1 1 1 1 1 0   0 0 1 1 1 0 0   0 0 0 1 0 0 0   0 0 1 1 1 0 0   0 1 1 1 1 1 0   1 1 1 1 1 1 1 program p2; var   a: array[1..6,1..6] of byte;   i,j: byte; begin   for i: =1 to 6 do   begin       for j: =1 to 6 do       begin       a[i,j]: =i+j-1;       if a[i,j]> 6 then a[i,j]: =a[i,j]-6;       write(a[i,j]: 2)       end;   writeln   end end. результат выполнения программы:   1 2 3 4 5 6   2 3 4 5 6 1   3 4 5 6 1 2   4 5 6 1 2 3   5 6 1 2 3 4   6 1 2 3 4 5