ΠΡΟΓΡΑΜΜΑ ΧίλιοιΠρωτοι

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, αρ, προσωρ, προσωρ2, ψ, ψηφία, ι, κ, κ2
  ΠΡΑΓΜΑΤΙΚΕΣ: αρ2
  
ΑΡΧΗ
  Ν <- 2                   ! Οι πρώτοι 2 πρώτοι είναι τα 2 και 3
  κ <- 5
  ΟΣΟ Ν < 1000 ΕΠΑΝΑΛΑΒΕ
    ι <- 2
    κ2 <- κ DIV 2
    ΟΣΟ (ι <= κ2) ΚΑΙ (κ MOD ι) <> 0 ΕΠΑΝΑΛΑΒΕ
      ι <- ι + 1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ ι > κ2 ΤΟΤΕ
      Ν <- Ν + 1
    ΤΕΛΟΣ_ΑΝ
    ΑΝ Ν < 1000 ΤΟΤΕ
      κ <- κ + 2
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Ο χιλιοστός (1000ος) ακέραιος που είναι πρώτος είναι ο : ", κ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΧίλιοιΠρωτοι