составьте программу нахождения количества всех целых положительных чисел от n до 25

Program n1;var i,n,k: integer;begink:=0;readln(n);for i:=n to 25 do if i>0 then k:=k+1;writeln(k);end.