a-calfor.adb 25 KB