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

S:=1;
k:=0
s:=s+2*k;
k:=k+4;

Цикл будет выполнятся до того момента пока k не будет больше 13
изначально
k:=0 
k1=4
k2=8
k3=12
k4=16 здесь цикл прерывается 
Теперь решим s:=s+2*k;
s1=1
s2=1
s3=9
s4=25
s5=49 здесь цикл k закончился
write(s+k);
прибавляем 49+16=65
ответ:65