ΠΡΟΓΡΑΜΜΑ Αριθμητικό_Ολοκλήρωμα 
ΜΕΤΑΒΛΗΤΕΣ 
  ΑΚΕΡΑΙΕΣ: N 
  ΠΡΑΓΜΑΤΙΚΕΣ: A, B 
ΑΡΧΗ 
  ΓΡΑΨΕ 'Δώστε την αρχική, την τελική τιμή και το πλήθος των υποδιαιρέσεων:' 
  ΔΙΑΒΑΣΕ A, B, N 

  ΓΡΑΨΕ 'Το αποτέλεσμα, κατά προσέγγιση για ', N, ' υποδιαιρέσεις είναι: ', ΟΛΟΚΛΗΡΩΜΑ(A, B, N) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

ΣΥΝΑΡΤΗΣΗ ΟΛΟΚΛΗΡΩΜΑ(A, B, N): ΠΡΑΓΜΑΤΙΚΗ 
ΜΕΤΑΒΛΗΤΕΣ 
  ΑΚΕΡΑΙΕΣ: N, Ι 
  ΠΡΑΓΜΑΤΙΚΕΣ: A, B, Δx, X, Y, Σ 
ΑΡΧΗ 
! Υπολογισμός του μήκους των υποδιαιρέσεων και αρχικοποίηση των μεταβλητών Χ και Σ     
  Δx <- (B - A)/N 
  X <- A 
  Σ <- 0 

! Υπολογισμός του αθροίσματος   
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ N - 1 
    X <- X + Δx 
    Y <- F(X) 
    Σ <- Σ + Y 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ 

  ΟΛΟΚΛΗΡΩΜΑ <- Δx*((F(A) + F(B))/2 + Σ) 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ 

ΣΥΝΑΡΤΗΣΗ F(X): ΠΡΑΓΜΑΤΙΚΗ 
ΜΕΤΑΒΛΗΤΕΣ 
  ΠΡΑΓΜΑΤΙΚΕΣ: X 
ΑΡΧΗ 
  F <- X^2 + 1 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ