СРОЧНО!!!1.Определите, что будет напечатано в результате работы последующего куска

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


3.Запишите число, которое будет выведено в результате работы программы:
var s, n: integer;
begin
s := 25;
n := 5;
while 500 lt; s*s do begin
s := s - 1;
n := n + 2
end;
writeln(n)
end.