ΠΡΟΓΡΑΜΜΑ ΚΥΡΤΑ_ΚΑΝΟΝΙΚΑ_ΠΟΛΥΓΩΝΑ
ΣΤΑΘΕΡΕΣ
  ΠΙ=3.14159265
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν
  ΠΡΑΓΜΑΤΙΚΕΣ: Α,Χ
ΑΡΧΗ
  ΓΡΑΨΕ 'Θέστε αριθμό πλευρών'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ Ν
    ΑΝ Ν<=2 ΤΟΤΕ
      ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά'
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ Ν>2
  ΓΡΑΨΕ 'Θέστε μήκος πλευράς'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ Α
    ΑΝ Ν<=0 ΤΟΤΕ
      ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά'
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ Α>0
  ΓΡΑΨΕ ''
  ΓΡΑΨΕ 'Γωνίες:'
  Χ <-- 360/Ν
  ΓΡΑΨΕ ' Κεντρική:',Χ,'μοίρες'
  Χ <-- 180-Χ
  ΓΡΑΨΕ ' Εσωτερική:',Χ,'μοίρες'
  ΓΡΑΨΕ 'Άθροισμα γωνιών:'
  Χ <-- 180*(Ν-2)
  ΓΡΑΨΕ ' Εσωτερικών:',Χ,'μοίρες'
  ΓΡΑΨΕ ' Εξωτερικών: 360 μοίρες'
  ΓΡΑΨΕ 'Διαγώνιες:'
  Χ <-- Ν-3
  ΓΡΑΨΕ ' Ανά κορυφή:',Χ
  Χ <-- Ν*(Ν-3)/2
  ΓΡΑΨΕ ' Συνολικές:',Χ
  Χ <-- Ν*Τ_Ρ(Α^2-(Α/2)^2)/2
  ΓΡΑΨΕ 'Εμβαδό:',Χ
  ΓΡΑΨΕ 'Περίμετρος:',Ν*Α
  ΓΡΑΨΕ 'Ακτίνα κύκλου:'
  Χ <-- Α/(2*ΗΜ(ΠΙ/Ν))
  ΓΡΑΨΕ ' Περιγεγραμμένου:',Χ
  Χ <-- Α/(2*ΕΦ(ΠΙ/Ν))
  ΓΡΑΨΕ ' Εγγεγραμμένου:',Χ
  Χ <-- Ν*(Ν-1)/2
  ΓΡΑΨΕ 'Συνολικές γραμμές:',Χ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ