PROGRAM KONTO (INPUT,OUTPUT);
VAR ANZAHL,GEBUEHREN:REAL;
BEGIN
WRITELN("ANZAHL="); READLN(ANZAHL);
IF ANZAHL<=6.0
THEN   GEBUEHREN:=0
ELSE IF ANZAHL<=16.0
     THEN GEBUEHREN:=(ANZAHL-6.0)*0.30
     ELSE GEBUEHREN:=(ANZAHL-16.0)*0.20+3.00;
WRITELN("SIE MUESSEN",GEBUEHREN,"BEZAHLEN")
END.