Решение задачи Series 20

#include <stdio.h>
int main(void)
{
    int n;
    printf("N:");
    scanf("%i", &n);
    int i,r,r1;
    for (i=1; i<=n; ++i, r1=r){
        printf(">");
        scanf("%i", &r);
        if (r1<r) printf("%i\n",r1);
    }
    return 0;
}

import random

N = random.randrange(2,20)
print("N = ",N)

x = random.randrange(1,10)
x_prev = x
k = 0
for i in range(1,N):
    x = random.randrange(1,10)
    if x_prev < x:
        k += 1
        print("*{0}".format(x_prev),end="; ")
    else:
        print(x_prev,end="; ")
    x_prev = x
print(x)

print("K = ",k)
									

program Series20;
var
  i,K,N,Num,Num1 :Integer;
begin
 Write('N:');
 Readln(N);
 K:=0;
 for i:=1 to N do
   begin
    write('Введите ',i,' число из набора :');
    Readln(Num);
    if (Num1<Num) and (i<>1) then
     begin
      writeln(Num1);
      inc(K);
     end;
     Num1:=Num;
   end;
  Writeln(K);
end.