1. Обусловьте, что будет написано в итоге работы последующего куска программы:var

1. Обусловьте, что будет напечатано в итоге работы следующего куска программки:
var k, s: integer;
begin
s:=0;
k:=0;
while s lt; 1024 do begin
s:=s+10;
k:=k+1;
end;
write(k);
end.