identification division.
program-id. ep172.
* aus Ebbinghaus/Flum/Thomas
* Math. Logik p. 172
author. Jens.
date-written. 6.2.2011.
date-compiled.
data division.
linkage section.
77 a0 pic 9(4).
77 r0 pic 9(4).
procedure division using a0 returning r0.
l0.
display "anfang"
add a0 to r0.
if r0 = 0 then goto l0.
end-program ep172.
¤ Dauer der Verarbeitung: 0.2 Sekunden
¤
*© Formatika GbR, Deutschland
