Το Στέκι των Πληροφορικών

Ν ← 1000000
για χ από 1 μέχρι 6
  α[χ] ← 0
τέλος_επανάληψης
true_story ← ''
διάβασε τιτ
οσο τιτ <> 'ΛΗΞΗ' επανάλαβε
  αρχή_επανάληψης
    διάβασε ακρ
  μέχρις_ότου ακρ >= 0
  για χ από 1 μέχρι 5
    α[χ] ← α[χ+1]
  τέλος_επανάληψης
  α[6] ← (ακρ+Ν) div (Ν+1400) + (ακρ+Ν) div (Ν+180) + (ακρ+Ν) div (Ν+1)
  αν α[1] = 1 και α[2] = 2 και α[3] = 3 και α[4] = 1 και α[5] = 2 και α[6] = 3 τότε
    true_story ← 'υπάρχουν...'
  τέλος_αν
  διάβασε τιτ
τέλος_επανάληψης
γράψε true_story