program mnozenie in frotran