For k: = -1 to1 do выполняться 3 раза; for k: = 10 to 20 do выполняться 11 раз; for k: =20 to 10 do выполняться 0 раз; k: = 5; r: =15; for i: = k+1 to r-1 do выполняться 9 раз; k: = 5; r: = 15; for i: = 0 to k*r do выполняться 76 раз; k: = r ; for i: = k to r do выполняться 1 раз. правельно вот код для теста: var i,n,k,r: integer; begin k: =r; for i: =k to r do begin n: =n+1; writeln(n); end; end.