ΠΡΟΓΡΑΜΜΑ ΣΥΧΝΟΤΗΤΕΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΣΥΧ[10], Α[100], Ι
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
    ΣΥΧ[Ι] <- 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100
    ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΜΟΝΟΨΗΦΙΟ ΑΡΙΘΜΟ'
    ΔΙΑΒΑΣΕ Α[Ι] 
    ΣΥΧ[Α[Ι] + 1] <- ΣΥΧ[Α[Ι] + 1] + 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ ΣΥΧ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 
!ArxeioEisodou
1
2
3
5
5
7
9
9
0
0
0
3
5
1
2
4
4
4
4
6
9
8
7
2
3
4
5
6
7
8
9
1
0
1
3
6
6
9
5
8
7
6
8
7
2
3
4
5
6
7
8
9
1
0
1
3
6
6
9
5
8
7
6
9
0
0
0
3
5
1
2
4
4
4
4
6
9
8
7
2
3
4
5
6
7
8
9
1
0
1
3
6
6
9
5
8
7
6
8
7
2
3
4
5
6
7
8
9
1
0
1
3
6
6
9
5
8