Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 80 do begin s: =s+2*k; k: =k+4; end; write(s); end.

В результате выполнения данной программы будет напечатано 80. 

K с каждой итерацией цикла увеличивается на 4 (0; 4; 8; 12; 16)
А в s копится сумма всех k умноженных на 4. Это происходит до тех пор, пока s не станет больше или равен 80
s = 4*4 + 4*8 + 4*12 + 4*16 = 80
на экране напечатается значение s, т.е. 80