Сколько раз будет выполнен цикл и что будет выведено на печать?
var k , i :integer;
. . .
k : = 0 ;
for i : = -10 to -9 do
k : = i ;
write(k) ;