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.