BEGIN N := N + 1; SUM := SUM + PRICE; IF PRICE > MAX THEN MAX := PRICE; READON(PRICE); END; WRITE(N,SUM,MAX)
... Dalarna[?]: Avesta | Borlänge | Falun | Gagnef | Hedemora | Leksand | LudvikaMalung | ...