Declare Integer counter $=0$

Set totapint $=0$

For counter $=0$ to $6$

Set sotadRinta $=5$otatRinta $+$ pints $[$counter$]$

End For

Return $5$otafRint:

f$.$ Declare

g$.$ Open

h$.$ Write

$n^{-}$

Declare Integer counter $=0$

i$.$ While counter $<mn>7</mn>$

Write

Set counter $=$ counter $+1$

End While

j$.$ Write

k$.$ Write

Close

End Module

Module segfFomFilt$\_$Real pints $[],$ Real zWerzgePibte$]$

Declare Integer counter $=0$

m$.$ Declare

n$.$ Open

n

$m$

o$.$ Read

P$.$ Display

q$.$ For counter $=0$ to $6$

Set counter $=$ counter $\frac{+}{b}ar(1)$

End For

r$.$ counter $=0$

While counter $<mtext></mtext><mn>7</mn>$

Display

End While

s$.$ Read

t$.$ DisplaY

u$.$ Read.

$$ DisplaY

w$.$ Close

End Module