[DEKLARATION REELL A,MAXIMUM]
BEGINN

LIES A
MAXIMUM:=A
WIEDERHOLE  WENN A>MAXIMUM
             DANN MAXIMUM:=A
LIES A
BIS A=0
SCHREIBE "DIE GESUCHTE ZAHL IST MAXIMUM"
ENDE