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

#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 ((r!=r1)||(i==1)) printf("%i\n",r);
    }
    return 0;
}

import random

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

l = [0]
for i in range(1,N):
    x = random.randrange(1,6)
    if x == 1:
        l.append(i)
    while x == 2 or x == 3:
        l.append(i)
        x = random.randrange(1,6)

print(l)

l2 = []
l2.append(l[0])
N = len(l)
for j in range(1,N):
    if l[j] > l[j-1]:
        l2.append(l[j])
print(l2)
print(list(set(l)))
									

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