ΠΡΟΓΡΑΜΜΑ ΠΡΩΤΟΓΟΝΕΣ_ΠΥΘΑΓΟΡΕΙΕΣ_ΤΡΙΑΔΕΣ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Α,Β,Λ,ΜΑΧ,Δ ΠΡΑΓΜΑΤΙΚΕΣ: Γ ΑΡΧΗ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Θέστε όριο υποτείνουσας (όχι μικρότερο του 5)' ΔΙΑΒΑΣΕ Λ ΑΝ Λ<5 ΤΟΤΕ ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά' ΓΡΑΨΕ '' ΤΕΛΟΣ_ΑΝ ΜΕΧΡΙΣ_ΟΤΟΥ Λ>=5 ΓΡΑΨΕ '' ΜΑΧ <-- Α_Μ(Τ_Ρ(Λ-1)) Δ <-- 0 ΓΙΑ Α ΑΠΟ 2 ΜΕΧΡΙ ΜΑΧ ΓΙΑ Β ΑΠΟ Α-1 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -2 ΑΝ ΜΚΔ(Α,Β)=1 ΤΟΤΕ Γ <-- Α^2+Β^2 ΑΝ Γ<=Λ ΤΟΤΕ Δ <-- Δ+1 ΓΡΑΨΕ Α^2-Β^2,2*Α*Β,Γ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ '' ΓΡΑΨΕ 'Πλήθος:',Δ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ ΜΚΔ(Α,Β): ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α,Β,ΜΑΧ,ΜΙΝ,Ι ΑΡΧΗ ΑΝ Α>=Β ΤΟΤΕ ΜΑΧ <-- Α ΜΙΝ <-- Β ΑΛΛΙΩΣ ΜΑΧ <-- Β ΜΙΝ <-- Α ΤΕΛΟΣ_ΑΝ ΜΚΔ <-- 1 ΑΝ (ΜΑΧ MOD ΜΙΝ)=0 ΤΟΤΕ ΜΚΔ <-- ΜΙΝ ΑΛΛΙΩΣ ΜΙΝ <-- Α_Μ(Τ_Ρ(ΜΙΝ)) ΓΙΑ Ι ΑΠΟ 3 ΜΕΧΡΙ ΜΙΝ ΜΕ ΒΗΜΑ 2 ΑΝ (ΜΑΧ MOD Ι)=0 ΤΟΤΕ ΜΚΔ <-- Ι Ι <-- ΜΙΝ+1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ