4. в таблице dat хранятся данные о количестве сделанных учениками (dat[1] сделал первый ученик, dat[2] – второй и т. определите, какое число будет напечатано в результате работы следующей программы. var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 7; dat[2] : = 9; dat[3] :
= 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 8; dat[9] : = 6; dat[10] : = 9; m : = 0; for k : = 1 to 10 do if dat[k] > 8 then begin m : = m + dat[k] end; writeln(m) end.